Ｐａｇｅ 118 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ユーザファームの動作について maeda 02/9/24(火) 5:58 ─────────────────────────────────────── ■題名 ： ユーザファームの動作について ■名前 ： maeda <fwhn0621@mb.infoweb.ne.jp> ■日付 ： 02/9/24(火) 5:58 -------------------------------------------------------------------------
| １．下記のようなマクロでテキストボックスに変数名が使えたらシンプルなマクロになると思うのですが可能でしょうか？ ２．ユーザファーム１のコマンドボタンでユーザファーム２を開き、ユーザフォーム２上のマウスをユーザフォーム２より外したらユーザフォーム２を閉じるように出来るでしょうか？ ３．マウスポインタを「手」の形にしたいのですが上手くいきません。 以上出来なくて徹夜です、お助けください。 Private Sub UserForm_Activate() Dim kensakuchi As Integer If (UserForm2(hani) <> "") Then kensakuchi = UserForm2(hani) TextBox1.Text = Format(WorksheetFunction.VLookup(kensakuchi, _ Worksheets("得意先Ms").Range("A9:BQ200"), 48, False), "#,##0;[赤]-#,##0") TextBox2.Text = Format(WorksheetFunction.VLookup(kensakuchi, _ Worksheets("得意先Ms").Range("A9:BQ200"), 49, False), "#,##0;[赤]-#,##0") TextBox3.Text = Format(WorksheetFunction.VLookup(kensakuchi, _ Worksheets("得意先Ms").Range("A9:BQ200"), 50, False), "#,##0;[赤]-#,##0") |