https://drive.google.com/file/d/16JHl5YIba-LyDeEGro84w7p7W54RtLiD/view?usp=drive_link Sub ファイル情報取得() Dim フォルダパス As String Dim ファイル名 As String Dim 行番号 As Integer Dim objFSO As Object Dim objFolder As Object Dim objFile…

https://drive.google.com/drive/folders/1MmMCIcMCNBwIac9i4e4nIuKvBtgf7zqd

2325 4 2 5 3 63 見出し 見出し ふっくら鷹クラブ オモコロ ここ いますぐおこねくふだい ここをクリック！

docs.google.com https://docs.google.com/spreadsheets/d/1dLihpy0E8Bj3Wocch5dB8VrQK9J7U7Xj/edit?usp=drive_link&ouid=112878982025562912749&rtpof=true&sd=true https://drive.google.com/drive/folders/1-F-HcUHKV-bNwnj6A8o_3V4K4O2rb6BC?usp=drive_l…

毒劇 - Google ドライブ

With Application.FileDialog(msoFileDialogFolderPicker)'ファイル選択ダイアログボックスのプロパティ.AllowMultiSelect = False '複数選択を許可するかどうか（True：許可する、False：許可しない）.Title = "フォルダを選択してください" 'ダイアログボ…

Sub MergeCSVFiles4()'フォルダのパスを指定'ユーザーにCSVファイルが格納されたフォルダを選択してもらうMsgBox "データをまとめるCSVファイルが格納されているフォルダを選択してください", vbOKOnlyWith Application.FileDialog(msoFileDialogFolderPicke…

'CSVファイルを開くOpen file.Path For Input As #1'CSVファイルのデータをエクセルシートに書き込むlastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).RowfileName = Replace(file.Name, ".csv", "")createDate = Format(fileSystem.GetFile(file.Path).Date…

Sub ExtractMissingNumbers欠番検索() Dim rng As Range Dim i As Long, lastRow As Long Dim missingNumbers As String '処理するセル範囲を設定 Set rng = Range("A1:A10000") '実際のセル範囲に合わせて変更してください '最終行を取得 lastRow = rng.Cel…

Sub ExtractMissingNumbers欠番検索() Dim rng As Range Dim i As Long, lastRow As Long Dim missingNumbers As String '処理するセル範囲を設定 Set rng = Range("A1:A10000") '実際のセル範囲に合わせて変更してください '最終行を取得 lastRow = rng.Cel…

Sub MergeCSVFiles4() 'フォルダのパスを指定 'ユーザーにCSVファイルが格納されたフォルダを選択してもらう MsgBox "データをまとめるCSVファイルが格納されているフォルダを選択してください", vbOKOnly With Application.FileDialog(msoFileDialogFolderP…

https://docs.google.com/document/d/1NXBEfdUE5sEmXlrhfpVuD5gcKlOzTx6a6tAxKBOSzmA/edit?usp=sharing

https://docs.google.com/document/d/11dL1ofvivI9UwfSSstAYj_to3K3FYPOjJ0XNkp4-71U/edit

Sub MergeCSVToExcel() Dim folderPath As String Dim csvFile As String Dim csvContent As String Dim rowPosition As Long Dim columnPosition As Long Dim currentWorkbook As Workbook Dim targetWorkbook As Workbook Dim targetWorksheet As Workshee…

Sub MacroB()Dim result As Integerresult = MsgBox("Do you want to run macro A?", vbYesNo, "Confirmation")If result = vbNo ThenCall MacroAAElseCall MacroBEnd IfEnd Sub Sub MacroAA()' ここにマクロAの処理を記述するEnd Sub

Sub ImportDataFromSelectedFile() Dim selectedFile As Variant Dim targetSheet As Worksheet Dim targetRange As Range Dim initialSelection As Range Dim message As String Dim response As Integer ' 元の選択範囲を取得 Set initialSelection = Sele…

どこかからデータをコピーしてこのマクロを使って添付するような使い方が想定されます。 下記の画像は連続でマクロを実行した結果です。 Sub 字を入れる()Dim topdata As StringRange("C1").Selecttopdata = Range("C1").Value If topdata = "" Then ActiveC…

B2の数値を参照してコピーする回数を指定し、 一枚目の画像から二枚目の画像のようになるマクロです それぞれのシートのロット、管理番号は１ずつカウントアップしてます シート全体を選択するのと印刷プレビューはおまけです そのまま印刷できそうですね 動…

Sub ファイルを開いてコピペするマクロ() Dim saisyosheet As WorksheetSet saisyosheet = ActiveSheet Dim OpenFileName As StringOpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If OpenFileName <> "False" ThenWorkbooks.…

例ではA1に付けたい名前 A2に保存したいアドレスを入力しています 保存した結果がこちら 最後にコピー元のシートを削除します この時警告文が表示されるのは改善したいけど改善の方法がわからないので我慢してください ちなみに私の本名は長谷川ではありませ…

Sub データの種類調べる() Dim sdata As String'最初データを参照sdata = ActiveCell While sdata = ActiveCell And ActiveCell <> 0ActiveCell.Offset(1, 0).ActivateWendIf ActiveCell <> 0 ThenMsgBox "違うデータが入力されています。確認して削除してく…

こんなかんじで グルッと一周しながらセルを削除するマクロです 新しいカテゴリ、役にたたない系マクロ一作目 for文を使った処理のストップを利用してカクカク動きます ゆっくり動くことで見た目が面白いのです。 ctrl＋d あたりに設定して連打してるとほん…

Sub Macro9() Dim S As StringDim S2 As StringDim data As Integer Range("A1").Select '元の数値データの先頭を選択S = Selection.Addressdata = ActiveCell Range("C1").Select '000を打ち込む列の先頭を選択S2 = Selection.Address While data <> 0 If d…

↑ ActiveCell.Offset(-1, 0).Activate ↓ ActiveCell.Offset(1, 0).Activate → ActiveCell.Offset(0, 1).Activate ← ActiveCell.Offset(0, -1).Activate シート移動→ ActiveSheet.Next.Select シート移動← ActiveSheet.Previous.Select Ctrl + 移動 ← Selecti…

画像ではB1のセルからA列のデータ端までオートフィルを使って入力するマクロです B1にはあらかじめ「セルの値＋＃」となるように「="＃"&A1」を入れています if文を最初に二つかましてあるのはデータがなかったときと１つしかなかったときはctrl+shift＋移動…

="番号：#"&A1&",#"&A2

例の画像ではSNというデータが何個あるかをC2セルのカウント関数によってカウントさせて、マクロ内でC2を参照して個数によって印刷範囲を変更します。 自分ちで使う場合は印刷範囲を適当に直してください データの数によって印刷範囲が変わるエクセルファイ…

2019/02/18追記 例の画像のように欠番を入力する列の先頭にデータがない場合には欠番が正常に入力されないバグがあったので修正しました。 欠番の列に移動した際にデータがなければif文を実行し、データを入力するようにしました If ActiveCell = 0 Then Act…

https://www.monotaro.com/g/01231666/