EXCEL VBA(form)で他のEXCEL bookと並行して作業を行いたいのですが。。 Excel VBAからOutlookを操作して、本文内に表を張り付ける Excel VBAでCPU使用率と起動しているプロセス名を取得するには Excel VBAでExcelファイルを大量に複製するとメモリが解放されずに増大してしまう回避方法について Exce...
オブジェクトのプロパティ値を取得することにより、そのオブジェクトに関する情報を取得できます。 次のプロシージャは、現在アクティブなフォームの一番上に表示されるタイトルをメッセージ ボックスに表示します。 VB SubGetFormName() formName = Screen.Active...
画像では動作を表現できないので、ちょっとわかりにくい感じがしますがUserFormにスピンボタンとテキストボックスを配置しています。 サンプルコードでは最小値を100、増減分を2としていますので上▲を押せば加算、下▼を押せば減算されます。 わかりにくいですね(笑) では、まずUseFormか...
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send res = .ResponseText End With getHTMLByHttp = res ErrHdl: If Err.Number <> 0 Then Debug.Print (Err.Number & " " & Err.Description) End If End Function 天気予報データ格納用クラスを作る 取得した天気予報デ...
"FetchDefaults/既定値を取得" プロパティ Filter イベント "Filter/フィルター" プロパティ "FilterOn/フィルター適用" プロパティ FilterOnLoad プロパティ FitToScreen プロパティ Form プロパティ FrozenColumns プロパティ GotFocus イベント GoToPage メソッド "GridX/X軸グリッド数" プ...
上記コードが記述してある「Module1」がありますが、ここに「Module2(標準モジュール)」「UserForm1(ユーザーフォーム)」「Class1(クラスモジュール)」をメッセージボックス表示と交互に追加を実行していきます。 ≪Module2追加≫ ≪User Form1追加≫ ...
DimNumber, Digits, MyString Number =53' Initialize variable.IfNumber <10ThenDigits =1ElseIfNumber <100Then' Condition evaluates to True so the next statement is executed.Digits =2ElseDigits =3EndIf' Assign a value using the single-line form of syntax.IfDigits =1ThenMyString ="One"ElseM...
Form の Caption のフォントは UserForm 側からは指定できず、OS の設定に準拠するはずです。CommandButton の Caption であれば、Font プロティにてフォントを設定できます。 データ入力 とすると メタ痘ﾍ と変換されます。 Shift_JIS でエンコードしてみると、バイナリの一部が欠けたよう...