2022 - アウトプットしながら学ぶ

OneDriveからフォルダをダウンロードすると中のファイル名が文字化けする問題の解決方法

2022/03/05 -OneDrive

OneDriveからフォルダをダウンロードすると中のファイル名が文字化けすることがあります。 OneDriveからフォルダをダウンロードすると、ZIPファイルとしてダウンロードされます。このZIPフ ...

CSVファイルのセル内改行を削除、除去する方法

2022/02/13 -Excel

CSVファイルのセル内に改行が入っていることがあります。これを削除する方法です。エクセルで開いて、Ctrl＋Jを空欄に置換するという方法があります。この場合、改行コードLF(ラインフィード)だけ ...

複数のシートを選択して印刷画面を開くコード（Excel VBA）

2022/02/12 -EXCELマクロVBA

複数のシートを選択して印刷画面を開くコードです。

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

1 2	Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

ファイル→印刷　をクリックしたときの画面を開くことができるので、微調整して印刷する ...

他のファイルの一部をコピーして貼り付けるコード（Excel VBA）

2022/02/12 -EXCELマクロVBA

Excel VBAで他のエクセルファイルを開き、一部を書式を含めてコピペするコードを書きました。

    Dim strPath As String
    Dim wbOpen As Workbook
    
    strPath = "ファイルのパス"
    
    Set wbOpen = Workbooks.Open(strPath)
    wbOpen.Worksheets("Sheet1").Columns("A:D").Copy

    ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteAll
    
    Application.CutCopyMode = False
    
    wbOpen.Close

1

2

3

4

5

6

7

8

9

10

11

12

13

Dim strPath As String

Dim wbOpen As Workbook

strPath = "ファイルのパス"

Set wbOpen = Workbooks.Open(strPath)

wbOpen.Worksheets("Sheet1").Columns("A:D").Copy

ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteAll

Application.CutCopyMode = False

wbOpen.Close

コピー対象のファイルを ...

WSL2のUbuntuにリモートデスクトップ接続したら画面が真っ黒になる問題

2022/01/02 -WSL

Windows10でWSL2を使えるように設定しました。 WSL2にUbuntuをインストールしました。 GUIでも操作したいので、XRDPをインストールして、リモートデスクトップ接続できるようにしま ...

「 年別アーカイブ：2022年 」 一覧

「年別アーカイブ：2022年」一覧