記事一覧
![](https://assets.st-note.com/production/uploads/images/131862485/rectangle_large_type_2_73a3cbadd3f275204743b87850dc5247.png?width=800)
メモ20240224
パワポのデータテーブル(表)をエクセルに出力 https://www.relief.jp/docs/powerpoint-vba-export-tables-to-excel.html からの引用 Sub ファイル内の表をExcelに…
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
もっとみるmemo csv読込み時に文字列置換
Sub テキスト読み込み() Dim txtName As String '取り込むテキストファイルを選択 txtName = Application.GetOpenFilename("テキストファイル,*.csv") If txtName <> "False" Then Open txtName For Input As #1
もっとみる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
もっとみるmemo AutoFilter
Sub test00() Dim targetRange As Range ' オートフィルタの設定 With Range("A1").CurrentRegion .AutoFilter field:=1, Criteria1:="" On Error Resume Next ' 絞り込んだ行(表示させた行)のみを対象として取得
もっとみる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)
もっとみるメモ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
20240119_memo
「SharePoint Online上のExcelファイルをVBAで開く」
※SharePoint上ExcelのURLを取得
SharePoint Onlineを開く
該当ファイルをExcelアプリで開く
メニューから「ファイル」をクリック
「パスをクリップボードにコピー」をクリック
WorkBooks.OpenでコピーしたURLを指定
Sub シェアポイント上のエクセルを開く () ’ファイル
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"
20240114 python
import pyperclip# pyperclipにコピ-pyperclip.copy('hello world')# pyperclipからペーストt = pyperclip.paste()print(t)
from selenium import webdriverimport timedriver = webdriver.Chrome()# クロームでヤフーのサイト開くdriver.g
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://cdn
もっとみる20231124memo
Power BIに検索窓(テキスト ボックス)を設置し、その検索窓に初期値を設定するには、以下の手順に従うことができます。Power BI Desktopを使用していると仮定しています。
テキスト ボックスの追加: Power BI Desktopでレポートを開き、"ホーム" タブから "テキスト ボックス" アイコンをクリックします。これにより、新しいテキスト ボックスがレポートに追加されます
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"> <
もっとみる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
もっとみる