VBA

セルの値をテキストファイルに出力Subtest()’セルの値をテキストファイルに出力DimiNumAsIntegeriNum=FreeFile’書き出すファイルの保存場所を””で囲むOpen"D:\test\My_test.txt"ForOutputAs#iNumDimiAsLongi=1DoWhileSheets(1).Cells(i,1).Value

Dir関数Dir関数は、ファイルの存在確認できる関数です。引数に指定したファイルが存在すると、ファイル名を返します。一方、指定したファイルが見つからないとき、Dir関数は長さ０の文字列を返します。Dir関数の引数を省略すると、直前に指定したフォルダーのなか、まだ返していないファイル名を順に返します。実務では*や?のワイルドカードを使って、ファイル名を指定することが多いです。Subtest1()DimbufAsStringbuf=Dir

実務では、表のなか数字を入れてほしかったのに、単位を含めていれてくれることがあったりします。また、システムから出力された表も、数字に見えるが、実際左上に緑の三角が付いている文字列となっていることは往々あります。今日は、文字列を一気に数字（数値）に変換することを見ていきます。文字列を数値に変換するSubtest()’数値変換DimiAsLongDimMaxRAsLongMaxR=ActiveSheet.Cells(Rows.C

テーブル（ListObjects）へデータを貼り付けるSubtest()’テーブルへデータを貼り付けるWithRange("A1").ListObject.ShowTotals=FalseDimnAsLongn=.ListColumns(1).Range.Count+1Range("E6").CurrentRegion.Copy

名前の定義の設定Subtest()’名前の定義を設定Sheets(1).Range("E1:G10").Name="test"Sheets(2).Range("A5:B10").Name="test1"EndSub名前定義一覧の取得Subtest2()'名前定義一覧の取得DimxlNameAsNameDimiAsLongi=2ForEachxlName

非表示の行・列があるかを判定Subtest()IfCells.SpecialCells(xlCellTypeVisible).Areas.Count>1ThenMsgBox"非表示の列があります。",vbInformationEndIfEndSub実行結果通常、非表示の行・列がない場合、セル全体に可視セルを取得すると、セル範囲は１つだけです。一方、非表示行・列がある時、セル全体が

にほんブログ村＜2023.02.23＞朝は、釣りの成績表の集計プログラムのプチ改造で時間を潰し…（たまにはプログラミングしないと…ね）１０時過ぎ、実家へ立ち寄り夏タイヤを詰め込み…いよいよ待ちに待った（約１年）新車とのご対面へ向かいます。少し早く着いたので、ディーラー前にあるモスバーガーでランチ。お腹を満たしてからディーラーへ。２時間半ほど滞在し、保険も更新し手続き完了～新車の匂いを堪能しながら帰宅しました。帰ってから運転席から見る内装は前車のカローラツーリングと９

何故か，世の中ではExcelが人気があり，特に官公庁ではExcel提出が多いから，もう30年ぐらいExcelと付き合いがあるが，便利って思ったことは一度もない．何回バグってデータの再入力したか数が多すぎて忘れたよ・・・時間の浪費でしかない．知り合いに，職場で使うExcelの集計シートを作るのを依頼されたが，要望を聞いていると，最低でもVBA使わないと複雑すぎて，厳しいなあっていうのがあった．多人数で使うらしいので，専用の集計アプリを作った方が楽だったが，どうしてもExcel単体でやりたいと

テーブル（ListObjects）配列で最終行へデータを貼り付けるSubtest()’配列でデータを貼り付けるDimArryArry=Range("E6").CurrentRegionWithRange("A1").ListObject.ShowTotals=FalseDimnAsLongn=.ListColumns(1).Rang

こんにちは、Pajaです。最近、長男がプログラミングに興味を持ってきたのでプログラミング教室を長男と私で行いました。凄く簡単な事からのスタートです。最初は、プログラミング言語がどうのこうのより分岐とはなにか、ループとはなにか、変数とはなにかを勉強する事にしました。そこで最初に選んだプログラミング言語は、ExcelVBAにしました。サンプルプログラムでこうなるんだよとかあーなるんだよとか説明したいので、この選択にしました。ExcelVBAだとExcelを操作して直ぐに結果が解

複数シートをコピーして別ブックへ保存するSubTest()'複数シートを新しいブックへコピーThisWorkbook.Worksheets(Array("4月","5月")).Copy'新しく作成したブックを名前を付けて保存ActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&"\新在庫管理表.xlsx"'新しく作成したブックを閉じる

AutoFillメソッドによる曜日一括入力Subtest()’AutoFillメソッドによる曜日一括入力(数式を一切利用せずWithRange("A2").Value="2024/4/16"’任意の日付を入れる.AutoFillDestination:=Range("A2:A31").Offset(,1)="火"’上記日付に対応する曜日を入れる

WorksheetFunction関数Cleanで改行削除Subtest()’Clean関数で改行削除DimMyStrAsStringMyStr="ほ"&vbCrLf&"う"&vbCrLf&"れ"&_vbCrLf&"ん"&vbCrLf&"そ"&vbCrLf&"う"Debug.PrintMyStrMyStr=WorksheetF

フィルターで特定文字を含むデータを抽出Subtest()’名前に田を含むものを絞り込むRange("A1").AutoFilterfield:=1,Criteria1:="*田*"EndSub実行結果フィルターで特定文字を始まるデータを抽出Subtest2()’名前に岡を始めるものを抽出Range("A1").AutoFilterfield:=1,Criteria1:="岡*"EndSub

連想配列でデータを高速検索Subtest()'連想配列でデータ高速検索DimA,B,C'辞書を作成SetA=CreateObject("Scripting.Dictionary")'元データベースを配列Bに格納B=Range("A2:C21")'検索対象を配列Cに格納C=Range("E2:G8")'検索キー（A列）を辞書Aに登録Fori=1ToUBound(B)

DateSerial関数で月末月初の日付を指定Subtest()’DateSerial関数で月末月初の日付を指定'当日Range("A1")="当日"Range("B1")=DateSerial(Year(Now),Month(Now),Day(Now))'当月月初Range("A2")="当月月初"Range("B2")=DateSerial(Year(Now),Month(Now),

VBAで元データ範囲の自動取得Subtest()'元データ範囲の自動取得DimmyRAsRange'A2を含むセル範囲を変数myRに代入SetmyR=Sheets(1).Range("A1").CurrentRegionEndSubSubtest2()'VBAでピボットテーブルを作成DimWSAsWorksheetDimPVCAsPivotCacheDim

SaveCopyAsメソッドSaveCopyAsメソッドで、現在開いているブックのコピーを作成して保存することができます。その基本構文は、下記通りとなります。構文Object.SaveCopyAs(Filename)開いているブックのバックアップファイルを作成するSubtest2()DimxlTimeAsStringDimxlNameAsString'ファイル名を取得xlName=T

10秒後にマクロを実行するSubtest()’10秒後指定マクロを実行するApplication.OnTimeNow+TimeValue("00:00:10"),"Greeting"EndSubSubGreeting()’挨拶のマクロ（実行対象マクロ）MsgBox"WellcomtoYokbali168"EndSub実行結果ApplicationオブジェクトのOnTimeメソッドで、指定時間後にマクロを実行

エクセル勉強会上級者①エクセルVBAでメール送信（OutLookの操作）で、エクセルで作成したファイルを添付して自動で送信してくれるマクロを紹介しましたが本文がちょっと雑でしたな。SetobjMAIL=oApp.CreateItem(0)objMAI.Body=Range("C4").Valueで可能ですが、どうしてもそっけない文書になりがちです。希望（例C列に2行から12行目までを本文にしたい）SetobjMAIL=oApp.CreateItem(0)Wi

おはようございます。個人事業主さん苦手なIT&Webサポート。Smilefactoryten代表加藤敦志です。先日ご相談を受けました「複数あるエクセルファイルを新しいバージョンのエクセルファイルに拡張子を変更したいのですが..と」１ファイルずつ変更すれば問題ない？開いて保存形式を変更し、保存する。この単純な操作ですが、例えば複数って１０ではなく１００単位です。ではどうするのか？魔法みたいな言葉を使えば一瞬で変換出来るのですが..しかし...問題が..一括変換後...Window

パソコンを使い始めるときに、ネットがおかしくないかチェックするためにインターネットの回線速度を毎回調べています。自動的にできると良いと思い、サイトAの方法（BNRスピードテストの画像読み込み版をVBAのIEオブジェクトで読み取る）を使っていましたが、JavaScript版のほうが速度が大きめに出るので（よい値が出た方が気分が良いので）これの値を読み取れないか、方法を探しました。サイトBのようにGNUWgetというダウンローダーを利用する方法もあるようですが、これは

マウスでドラッグするだけでスケジュールが引けるEXCELVBAで作成したフリーソフトです※「簡易版」の画面イメージ(エンジニアでない人はこちらが使いやすいです）【特徴】・フリーレイアウトです通常、こういったソフトはタスク列などの項目が固定なので自由につかえませんが当ソフトウェアは自由に列の追加・削除が可能です。日付表示や進捗などプログラムの機能が設定された列も不要であれば列削除する事で、機能を無効に自動設定します・undo(アンドゥ)機能があります失敗

セクション8:第6章セルの操作～VBAはセルを操作する処理がほとんど。だからこそ重要！まで終わりました。

みんな大好き「面削除」ソリッドボディをアレコレしたい場合によく使うコマンドの一つアクセスは、メニュー「挿入/面/削除」もしくは直接編集タブ「面削除」からどうぞ今回はその11「ボディの穴削除」の派生な感じソリッドモデルのR部を選択して「面削除」するだけ板厚を入力すると厚み方向のRを除外フィーチャーではなく面で選んでいるのでソリッドモデルでも板金モデルでもインポートモデルでも使ってみてから改良していこうザックリ流れ↓①PartDoc::GetBo

Excelで作った表を印刷するとセル内の文字列の末尾が欠けてしまうことありませんか？私は、Excel2000を使っていてこの現象に何度も出くわして、行幅を調整して印刷しなおすという手間を何度もかけることがあります。セルの右端に届きそうな位置で文字列が終わる場合によく起きる現象です。原因は、画面に表示されるときの文字間と印刷されるときの文字間が微妙にずれていることにあります。ワークシートが以下のようになっていたとします印刷ブレビューを見ると右下のセル内の文字が欠けてしまってい

前の投稿でHyperLink関数を使った翻訳方法を紹介しましたがVBAやPADを使って複数のセルを連続して翻訳したい。VBAで英語翻訳を自動化！VBAでIEを操作する方法ですね。実際にVBAコードを作成して実行してみると〇半角英数字の英語を翻訳×全角文字の日本語を翻訳全角文字の部分が文字化けしてしまいます。どうもIE（InternetExplore）の問題の様です。ではMicrosoftのPAD（PowerAutomateDesktop）の場合はPADで自動翻

窓のプログラム家猫ミー「MicrosoftPrinttoPDF」という仮想プリンターが入っているので、調べたところ、Windows10から標準搭載のようです。Windows10から搭載された「MicrosoftPrinttoPDF」は、「プリンターとスキャナー」の中にある仮想プリンタードライバーである。プリンター名をクリックして「デバイスの削除」をクリックすると、「MicrosoftPrinttoPDF」を削除することができる。Microsoftのアプリケーション（例：P

前回、前々回に続いて今回は「xlwings」ライブラリを使って同様な動作をさせてみます。PythonでExcelブックを操作するライブラリの定番は「OpenPyxl」かもしれませんが、ExcelVBAからの置き換えや自動化によく使われるのが「xlwings」ライブラリです。サンプルコードを示します。（下図）上図はVisualStudioCode(VScode)で表示したもので、コピペして練習される方のためにコードを下に貼り付けておきました。importosimport

不要なタスクが多数動作していたので、下記のschtasksコマンドで無効化しました。管理者権限のPowershellか管理者権限のコマンドプロンプト上で動作します。schtasksコマンドの使い方は下記のとおり１．タスク名を指定してタスクの状態を確認するschtasks/Query/v/FOlist/TN"タスク名"|findstr"状態:"２．タスク名を指定してタスクを実行するschtasks/Run/TN"タスク名"３．タスク名を指定