369

日々のネタノートです。VBAメイン、ときどきアクセス、Pythonも・・

369

日々のネタノートです。VBAメイン、ときどきアクセス、Pythonも・・

memo マージ

Sub 複数ブックマージ()Dim A, B, C, D Set B = ThisWorkbook.Worksheets("Sheet1") 'フォルダ内のブック名を取得 C = Dir(ThisWorkbook.path & "\TEST\*") Do While C <> "" 'ブックを開く Workbooks.Open ThisWorkbook.path & "\TEST\" & C 'データ部分を取得

369

    • memo text変換

      Sub output()'変数宣言Dim maxRow, maxCol As LongDim name, data, path As String'最終行・最終列取得maxRow = Cells(1, 1).End(xlDown).RowmaxCol = Cells(1, 1).End(xlToRight).Column'1行ずつ書き出しFor i = 1 To maxRow'名前（A列）name = Cells(i, 1).Value'データ内容（B～列）data = ""

      369

      • memo csv読込み時に文字列置換

        Sub テキスト読み込み() Dim txtName As String '取り込むテキストファイルを選択 txtName = Application.GetOpenFilename("テキストファイル,*.csv") If txtName <> "False" Then Open txtName For Input As #1 End If Dim r As Long r = 1

        369

        • memo csv取り込み　引用

          Sub Test() Const CSV_FILE_PATH As String = "C:\00_myenv\10_macro\01_test\厄介なCSV.csv" Call ReadCsv_QueryTables(CSV_FILE_PATH, ThisWorkbook.Worksheets("QueryTables"))End SubSub ReadCsv_QueryTables(ByVal csvFilePath As String, ByRef outp

          369

        memo マージ

        369

          memo AutoFilter

          Sub test00() Dim targetRange As Range ' オートフィルタの設定 With Range("A1").CurrentRegion .AutoFilter field:=1, Criteria1:="" On Error Resume Next ' 絞り込んだ行（表示させた行）のみを対象として取得 Set targetRange = .Offset(1, 0).Resize

          369

          memo AutoFilter

          369

          memo2024022402

          Sub kopipe()Dim lastrow As Long '行数カウント用の変数lastrow = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).RowDim i, j, k, l As LongWith Worksheets("sheet1")For i = 1 To lastrowj = i + 1l = .Cells(i, 1).Valuek = l + 1 If .Cells(i, 2).Value

          369

          memo2024022402

          369

          メモ20240224

          パワポのデータテーブル（表）をエクセルに出力 https://www.relief.jp/docs/powerpoint-vba-export-tables-to-excel.html　　 からの引用 Sub ファイル内の表をExcelに出力する()　Dim sld As Slide　Dim shp As Shape　Dim r As Long　'PowerPointの表の行番号　Dim c As Long　'PowerPointの表の列番号　Dim xl_app As

          369

          メモ20240224

          369

          memo0222

          Sub kopipe()Dim lastrow As Long '行数カウント用の変数lastrow = Worksheets("sheet1").Cells(Rows.Count, 2).End(xlUp).RowDim i As Long, j As Long, k As Longk = 2For i = 1 To lastrowj = i + 1If Worksheets("sheet1").Cells(i, 2).Value = "質問" Then Work

          369

          memo0222

          369

          20240119_memo

          「SharePoint Online上のExcelファイルをVBAで開く」 ※SharePoint上ExcelのURLを取得 SharePoint Onlineを開く 該当ファイルをExcelアプリで開く メニューから「ファイル」をクリック 「パスをクリップボードにコピー」をクリック WorkBooks.OpenでコピーしたURLを指定 Sub シェアポイント上のエクセルを開く () ’ファイルのシェアポイント上URL指定　　Workbooks.Open ("https:/

          369

          20240119_memo

          369

          20240115 memo

          'bookを開くWorkbooks.Open Filename:= ThisWorkBook.Path & ”￥”＆Format(NOW,"YYMMDD") & ".xlsx"Workbooks.Open Filename:=ThisWorkbook.Path & "\xxxxxxxx.xlsx"Workbooks.Open ThisWorkbook.Path & "\xxxxxxx.xlsx"

          369

          20240115 memo

          369

          20240114 python

          import pyperclip# pyperclipにコピ-pyperclip.copy('hello world')# pyperclipからペーストt = pyperclip.paste()print(t) from selenium import webdriverimport timedriver = webdriver.Chrome()# クロームでヤフーのサイト開くdriver.get('https://www.yahoo.co.jp/')# C直下のtest

          369

          20240114 python

          369

          memo1127

          <!DOCTYPE html><html lang="en"><head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Fuzzy Search Excel Table</title> <script src="https://cdnjs.cloudflare.com/ajax/libs/xlsx/0.17.0/

          369

          memo1127

          369

          20231124memo

          Power BIに検索窓（テキスト ボックス）を設置し、その検索窓に初期値を設定するには、以下の手順に従うことができます。Power BI Desktopを使用していると仮定しています。 テキスト ボックスの追加: Power BI Desktopでレポートを開き、"ホーム" タブから "テキスト ボックス" アイコンをクリックします。これにより、新しいテキスト ボックスがレポートに追加されます。 検索窓の設定: 追加されたテキスト ボックスを選択し、"テキスト ボックス

          369

          20231124memo

          369

          20231122memo

          <!DOCTYPE html><html><head><meta charset="UTF-8" /><meta name="description" content="t"><title>Demo</title></head><body><input type="text" id="search"> <input type="button" value="絞り込む" id="button"> <input type="button" value="すべて表示" id="bu

          369

          20231122memo

          369

          memo20231118

          Sub 埋込式()Dim Lastrow As Long Lastrow = Cells(Rows.Count, 2).End(xlUp).Row Range("N2:N" & Lastrow) = "=VLOOKUP(M2,$B:$D,2,FALSE)" Range("N2:N" & Lastrow).Value = Range("N2:N" & Lastrow).Value Range("O2:O" & Lastrow) =

          369

          memo20231118

          369

          memo

          Nz ( 値 , Nullだった場合の代替値 )val(Nz([],0))

          369

          memo

          369