Sub CopyDataToAnotherSheet() Dim sourceWorkbook As Workbook Dim sourceSheet As Worksheet Dim destinationSheet As Worksheet Dim sourceFilePath As String ' ファイル選択ダイアログを表示して、ファイルパスを取得 sourceFilePath = Application.Get…

Sub HighlightText() Dim cell As Range Dim searchText As String ' ユーザーに検索したい文字列を入力してもらう searchText = InputBox("検索したい文字列を入力してください", "文字列の検索") ' 入力が空でない場合に処理を実行 If searchText <> "" Th…

Sub TrimSpacesAndNewlines() Dim cell As Range For Each cell In Selection ' セルの前後のスペースと改行（Chr(10)）を削除 cell.Value = Trim(Replace(cell.Value, Chr(10), "")) Next cellEnd Sub

Sub SelectFolder() Dim folderPath As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then ' ユーザーが「OK」をクリックした場合 folderPath = .SelectedItems(1) MsgBox "選択したフォルダ: " & folderPath End If End W…

Sub HighlightCells() Dim cell As Range For Each cell In Range("A1:A10") If cell.Value > 50 Then cell.Interior.Color = RGB(255, 0, 0) ' 赤色 End If Next cellEnd Sub

Sub CopySheet() ActiveSheet.Copy After:=Sheets(Sheets.Count)End Sub

Sub LoopCells() For i = 1 To 5 Cells(i, 1).Value = "Item " & i Next iEnd Sub

Sub EnterValue() Range("A1").Value = "Excel VBA"End Sub

Sub ShowMessage() MsgBox "Hello, World!"End Sub