フォローしませんか?
シェア
三輪
2021年1月5日 18:38
数式を消されないように数式が入ったセルのみ保護をかける。 Worksheets("シート名").Unprotect Cells.Locked = False Worksheets("シート名").UsedRange.SpecialCells(xlCellTypeFormulas).Locked = True
2020年9月2日 19:26
【マクロ実践編3】の考え方指定フォルダに入っているファイルをA列に全て書込む Dim cnt As Long Dim fs As New Scripting.FileSystemObject Dim basefolder As Scripting.Folder Dim tarPath As String tarPath = ThisWorkbook.Path S
2020年8月31日 19:39
【マクロ実践編1】の処理の部分に適用できるA列に指定の文字が入力されているとき、その右のセルB列に指定の文字を含んだファイル名を書込む◆PointLikeの書き方とflgを立ててファイルが見つかったらfor文から抜けることFor i = 2 To maxRow flg = False For Each mysubfile In mysubfiles If mysubfile.
2020年8月17日 19:17
A列内でデータは重複している。A列の値が同じである行データごとに一つのファイルにして、ファイル名はA列の値にしたい件A列を元に重複しないリストを作り、リストの数だけエクセルファイルを作る。◆準備参照設定:[Microsoft Scripting Runtime]◆連想配列作成Dim dic As Scripting.Dictionary Set dic = CreateObjec
2020年8月16日 17:14
Dir関数を使った際、フォルダ名にピリオドが含まれているとそのフォルダを認識してくれなかったので[FileSystemObject]で書き直して対応した件フォルダ名にピリオドが含まれていても問題なく検索してくれる◆準備参照設定:[Microsoft Scripting Runtime]◆変数宣言Dim tarPath As String tarPath = ThisWorkbook.