VBA

過去に𝕏（旧Twitter）でのAIについてのツイートまとめです。 どの時点でどう政策転換していったか転換していくかは分かりませんが、今の時点で予測する限りでは、、、VBAが使えなくなる頃には、AI等を含めて簡単移行ツールが出来ている可能性が高いと読んでいます。なんだよ、だったらもうちょっと待ってれば良かった…という事になるのかなーと。

コード 参照設定：Microsoft Shell Controls And Automation Sub Test() Dim myPrinter As String myPrinter = Application.ActivePrinter Dim Shell As Shell32.Shell Set Shell = New Shell32.Shell Dim Printer As Shell32.FolderItem2 For Each Printer In Shell.Namespace(ssfPRINTERS).Items On Error Resume Next Call ThisW…

サンプルコードでできること セルの上下左右の罫線の太さを表示します。 カーソルを置いた単一セルを想定していたのですが、複数セルでも動作します。 ただ下図のように、どこのセルの線幅か分かりづらいです。 コードの説明 If Selection.Information(wdWithInTable) = False Then MsgBox "表外にカーソルがあります。" Exit Sub End If カーソルが表外にあるとき、メッセージを表示して終了します。 For Each cel In Selection.Cells If cel.Borders(wdBorderTop).LineStyle =…

サンプルコードでできること 隠し文字表示のオン・オフを切り替えます。 Sub 隠し文字表示切り替え() With ActiveWindow.View .ShowHiddenText = Not .ShowHiddenText End With End Sub サンプルコードでできること ブックマーク表示のオン・オフを切り替えます。 Sub ブックマーク表示切り替え() With ActiveWindow.View .ShowBookmarks = Not .ShowBookmarks End With End Sub サンプルコードでできること コメント表示のオン・オフを切り替えます。 Sub…

サンプルコードでできること mm、pointなど、使用する単位を表示します。 コードの説明 Select Case構文を用いて、使用する単位を判定します。 Sub 使用する単位の表示() Select Case Options.MeasurementUnit Case 0 MsgBox "インチ（in）" Case 1 MsgBox "センチメートル（cm）" Case 2 MsgBox "ミリメートル（mm）" Case 3 MsgBox "ポイント（pt）" Case 4 MsgBox "パイカ（pi）" End Select End Sub サンプルコードでできること mmとpointを…

よく使用する構文をまとめておきます。 よく使用するコードはこちら 検索の基本構文はこちら Sub 段落処理の基本構文() '文書内の段落を1つずつ処理します。 Dim para As Paragraph For Each para In ActiveDocument.Paragraphs '処理内容を書く Next End Sub Sub 選択段落の文字を表示() '選択段落を1つずつ処理します。 Dim par As Paragraph For Each par In Selection.Paragraphs '処理内容を書く Next End Sub Sub 全ての文書処理の基本構文() …

サンプルコードでできること 文書内の全てのオートシェイプのフォントを変更します。 コードの説明 jFont = "ＭＳ ゴシック" eFont = "Arial" 変数に日本語フォントと英数字フォントを格納します。 ActiveWindow.View.Type = wdPrintView 図を表示するため印刷レイアウト表示にしています。 （コードなしでもフォントは変更されます。） For Each shp In ActiveDocument.Shapes If shp.TextFrame.HasText Then '省略 End If 文書内の図をひとつずつ確認して、テキストを持つ場合のみ、フ…

最近、自分が頑張ってきた内容を人に取られた・・・とか、自分が努力してブラッシュアップした内容を人に教えたくない・・・といった方の悩みをよく聞きます。努力されて人に教えたくないのなら、特許などを取得されて取られないようにしてみてください。 私はExcel、VBA、Power BI、データ分析、パソコンの仕組み、パソコン不具合対応等を理解してきました。でも、私がこれらのアプリケーションなどを作ったわけではありません。これらを利用して商売をさせて頂いているだけです。 誰だって、スキルを習得する為に頑張っています。 でも楽しいから何も感じなかった。苦痛もなかった。努力することは自分の為になるし、人に伝…

エクセルの同じ作業😩VBAを使えば1秒だけど😒１時間かけてヤバイよね、日本🫠 ChatGPTを使うとVBAコードの改変、修正が簡単！ 仕事が快適に！😆 ※ChatGPTは、マイクロソフトのBingAIチャットを使います。プログラミングに強いGPT-4を無料で使えます。 アプリ（NoCodeVBA）とは アプリ×ChatGPT ChatGPT×VBA マニュアル 長い処理のVBAコードを短時間で作るには VBAコードを作成するプロンプトの書き方 使用例一覧 アプリ アプリ（NoCodeVBA）とは アプリにセルのアドレスなどを入力すると、VBAコードを表示します。 コードの知識は不要です😊 アプ…

本ブログ開始から本日で2891日目となりました。11月は、殆どの投稿が(作成中)状態。読者は、一人減って5人増えました。現在64人。ありがとうございます。 1日あたりのアクセス数は、約170PV。先月は197PVでしたので、27PV減っています。200PV台は5日だけでした。(作成中)が多く、仕方ありません。 Google からよくアクセスされているページ 10% (Excel VBA) コンパイルエラー: ByRef 引数の型が一致しません。 4% Amazonでクレジットカード期限切れ更新作業 3% Google Chrome 同一ページを複数のブックマークフォルダに保存する 3% NTT…

iPhone8 Plus こんばんは、今日も一日お疲れ様でした 今日もお立ち寄りいただきありがとうございます 昨晩は洗濯物を干したりアイロンがけをしたりするのがあって、夜が遅くなってしまったので、ドラマも観れなくて、youtubeでBUMPをBGMにブログ巡りをしたり、ExcelのVBAマクロの勉強をしたりして過ごしました。てなことをやっていたら、やっぱり1時を過ぎてしまって… 朝は7時15分の目覚ましで目を覚ましました。最近、朝の目覚まし、7時にかけるのをやめてしまっています。どうせ起き上がれないのなら、その15分寝ていたほうがいいだろう、と思ったからです。案の定、今日も起き上がったのは7時…

Bing Image Creatorによって作成：蓑輪博之 數学 フェルマーの最終定理の初等的証明 4色定理の証明 線分演算 π～eの無理性・超越性 コラッッ予想の証明 ABC予想の証明 ゴールドバッハ予想の証明 ルジャンドル予想の証明 双子素數予想の証明 奇数の完全數は存在為ない証明 友愛數の偶然及び婚約數の奇跡 ブロカールの問題の証明 時空を超えた生命の確率 五次方程式に解の公式が存在為ない証明 初等數学を俯瞰為る 工学 電気・電子工学 フーリエ解析～信号処理 ラプラㇲ変換～制御工学 電気・電子回路 電気機械-変圧器・回転機 包絡線ダイオード検波器の解析・位相変調 コンピュータ～社会 自動…

エクセルVBAマクロを自動作成する無料アプリです。 例として「複数シートのデータを、縦方向にコピーし、1枚にまとめる」VBAマクロを作成します。 （ページの末尾に、VBAコード掲載） 事例 各シートのデータを、1枚のシートにまとめます アプリの設定 表示されるVBAコード ChatGPTで修正 アプリはこちらから↓↓↓↓ 事例 各シートのデータを、1枚のシートにまとめます 1枚のシートに、データをまとめました。 できました😃 アプリの設定 アプリの設定です。 アプリのトップページ ⇒▼シート ⇒【ツール】複数シートのデータを1枚のシートにまとめる 【ポイント】 ■ 処理するシートのうち、「貼り…

エクセルVBAマクロを自動作成する無料アプリです。 例として「複数セルの転記を転記表で行う 」VBAマクロを作成します。 （ページの末尾に、VBAコード掲載） 事例 コピー元の値のコピー先への転記を、転記表で行う 一つのセルや、セル範囲も転記可能です 範囲を複写すると、他のブックや、ほかのシートへの転記が簡単です アプリの設定 表示されるVBAコード ChatGPTで修正 アプリはこちらから↓↓↓↓ 事例 コピー元の値のコピー先への転記を、転記表で行う 一つのセルや、セル範囲も転記可能です 範囲を複写すると、他のブックや、ほかのシートへの転記が簡単です アプリの設定 アプリの設定です。 アプリ…

iPhone8 Plus こんばんは、今日も一日お疲れ様でした 今日もお立ち寄りいただきありがとうございます 昨晩はちょっと遅めだったけれど、ニュースを観ながら晩御飯。いつものように洗い物を片付けてから、U-NEXTで配信されているドラマ「dele」を観ました。それからやっとブログ巡り。床についたのは1時過ぎ 今日も目を覚ましたのは7時15分くらい。それから10分ほど起き上がれなくて。慌ててコーヒーを淹れて、その合間に準備して、慌ただしくコーヒーを飲んで出発 いつもと同じ毎日が始まりました。憂鬱な毎日 まずは午前中のいつものルーティン作業。だいぶ効率化されたので、早く終わるようになりました。で…

以下は、修正後のプログラムです。このプログラムでは、カレンダーの日付をB2から行で、スタッフをA2から列で表示し、出勤のスタッフは日付の行に"○"を入れるように設定します。 ```vbaSub CreateShift()Dim staff As VariantDim attendance As VariantDim numOfStaff As IntegerDim shiftCount As IntegerDim daysPerMonth As IntegerDim startDate As DateDim endDate As DateDim currentRow As IntegerDim…

こちらの続きです。 "ﾌﾟﾛﾊﾟﾃｨをﾘｾｯﾄ"コマンドをマクロで実行2 - C#ATIApythonではイマイチだった為、vbaに戻って再挑戦。 vbaの場合は、UI Automationを使います・・・デバッグしにくい。こちらを参照しながら、もがき苦しんだ末、出来たものがこちらです。 Graph Tree Reordering in VBA | Scripts4All 'vba '要参照設定 UIAutomationClient Option Explicit Sub CATMain() Dim pDoc As PartDocument Set pDoc = CATIA.ActiveDoc…

はじめに、VBAを使用して次の手順に従ってシフトを作成する基本的なコードを示します。 ```vbaSub CreateShift()' 定数宣言Const NUMBER_OF_STAFF As Integer = 6 ' スタッフの人数Const WORK_DAYS As Integer = 18 ' 月の出勤日数Const MAX_CONSECUTIVE_DAYS As Integer = 5 ' 最大連勤日数' 変数宣言Dim shiftTable(1 To WORK_DAYS) As Integer ' シフト表Dim staffCount(1 To NUMBER_OF_STAFF) A…