- 締切済み
ユーザーフォームのVBAエラー
kool_noahの回答
- kool_noah
- ベストアンサー率33% (95/285)
上にも同じ名前があるのでかぶってるから、どっちの事行ってるのかわからんって事でPCが困ってます 名前を変えてあげる必要がありますね。 違ってさえいれば何でもいいです UserFormer_Initilize２でも ただ、あとで見返したときや、他で使いたいときにあれ？あっちって1だっけ？2だっけ？ってなるので、わかりやすい名前にした方がいいですよね。 その処理はコンボボックスの月の初期化であれば month_combo_initializeとか
関連するQ&A
- ユーザーフォームVBAでCells(n, 7)が
いつもお世話になります Windows7 excell2010 です ご指導を仰ぎたいのは参照図で言うと、 TextBox1～6 は順調に入力しますがTextBox7にすると「入力」に飛び 参照図のG13に入力されません。 VBAを勉強し始めたはかりですのでどこが悪いかわかりません。 恐れ入りますがご指導願えませんでしょうか。 下記参考にします。 Module のコードには Sub FormSample() Do UserForm1.Show Loop End Sub Sub Test() MsgBox "ボタンによるマクロの実行" End Sub UserForm1 Private Sub CommandButton1_Click() n = 1 Do n = n + 1 Loop While Cells(n, 1) <> "" Cells(n, 1) = UserForm1.TextBox1.Text Cells(n, 2) = UserForm1.TextBox2.Text Cells(n, 3) = UserForm1.TextBox3.Text Cells(n, 4) = UserForm1.TextBox4.Text Cells(n, 5) = UserForm1.TextBox5.Text Cells(n, 6) = UserForm1.TextBox6.Text Cells(n, 7) = UserForm1.TextBox7.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub
- ベストアンサー
- その他MS Office製品
- VBAで別々の２列のセルに色付け
WINDOWS XP EXCELL ２００３です。 いつもお世話になります。 参照図で A～D と E～H に分けています。 A２ 数式が =IF(B2="","",TEXT(B2,"mm")) E２ 数式が =IF(F2="","",TEXT(F2,"mm")) それぞれには １(月)から１２(月)です。 ※ 数値のみで 月 は含まれません。 ユーザー定義 mm/dd です。 御指導を仰ぎたいのは A列 と E列 のセルの色づけのマクロを教えていただけませんか。 色コードは後で私が追加します。
- 締切済み
- その他MS Office製品
- 宛名の丁目、番地の表示の仕方
宛名の丁目、番地の表示の仕方 いつもお世話になります。 Windows XP EXCELL2003 です。 例えば「個人」というシートに全角で F2 に下記の用に入力しています。 厚木市東町１－２－３ 次のような数式で値を参照したとき =IF(A1="","",VLOOKUP(A1,個人!A2:H1000,6,FALSE)) & "" ユーザー定義 標準 の場合、参照図の 左側 の用に ― になります。 ご指導いただきたいのは 参照図の 右側(赤矢印) 部分です。 もし可能ならばどんな方法があるのかご指導いただけませんか。 よろしく御願いします。
- ベストアンサー
- その他MS Office製品
- ユーザーフォームの入力時のマクロについて
いつもお世話になります。 Windows7 excell2010 です。 今まさにVBAをやり出してあまりわかっていませんが下記のようにまでになったところです。 ご指導をいただきたいのは、 参照図にあるUserForm1に入力するとき、 「日付」 ime が 半角数値 「顧客名」ime が ひらがな 「売上」 ime が 半角数値 を自動的にする マクロ を記述したいです。 ご指導いたたければ幸いです。 下記のようなマクロが記述されています。 ※UserForm1 コード表示 Private Sub CommandButton1_Click() n = 1 Do n = n + 1 Loop While Cells(n, 1) <> "" Cells(n, 1) = UserForm1.TextBox1.Text Cells(n, 2) = UserForm1.TextBox2.Text Cells(n, 3) = UserForm1.TextBox3.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub ※標準モジュール Sub FormSample() Do UserForm1.Show Loop End Sub Sub Test() MsgBox "ボタンによるマクロの実行" End Sub
- ベストアンサー
- その他MS Office製品
- 連続して４ケの○が付いたときにセルの色付け
いつもお世話になります。 Windows7 excell2010です。 ご指導を仰ぎたいのは 添付図のように もっとも最近で ○ が４ケ付いたときに 1 田中さんのように最近の○４ケに赤色 2 後藤さんのように氏名のセルに赤色 どちらの方法でもいいのですがセルに色を付けたいのですがご指導いただけませんか。
- ベストアンサー
- その他MS Office製品
- 20日の締切日翌月5日の入金日の月度の表示
いつもお世話になります。 WIN7 EXCELL2010 です。 20日の締切日で翌月の5日に入金予定ですが 参照図の A列 のようにするのは可能でしょうか。 例えば B2 「11/21」 2013/11/21～2013/12/20 の締切で 2014/1/5の入金ですがこの時 A2 には 「1」 と表示したいのです。 この方法で毎月の 「月」 に適用したいです。 恐れ入りますがご指導を願えませんでしょうか。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- 記号付きの文字列を抽出したい
いつもお世話になります。 WIN7 EXCELL2010 です。 ご指導をいただきたいのは、 添付図で A2 ～ C8 で #1 #2 #3(この３つだけです) が付き 尚且つ一つだけ選び出したい。 例えば、「田中 角栄 #1」はA2～C3には３個ありますが D2のように１個だけ選べればいいです。 もし可能ならばご指導戴ければ幸いです。 宜しくお願いします
- ベストアンサー
- その他MS Office製品
- 入力が重複したとき警告がしたい
入力が重複したとき警告がしたい いつもお世話になります。 Windows XP EXCELL2003 です。 下記でご指導いただいて現在使用しています。 「入力したデーターを別シートに ～その２」 http://okwave.jp/qa/q5952346.html 使用していて下記のような問題点が新たに発生しました。 参照図で説明します。 上図の 「C2 D2」(泊は１/１ 2 ３日) と 「C3 D3」(１/３ ４日)の来場日及び退場日の記入を記入者がミスすると 下図の D6(黒○印 ３日)のように重複します。 ご指導を仰ぎたいのは参照図の上図の C3 D3 を入力したときに３日の重複を警告するような何かいい方法がないでしょうか。 誠に恐れ入りますかご指導いただけませんでしょうか。
- ベストアンサー
- その他MS Office製品
- 新たに追加、並び替えでも参照の値を追従させた
WINDOWS XP EXCELL ２００３です。 いつもお世話になります。 参考に参照図を添付しています。 添付図は「４月」「５月」のシートです。 例えば「５月」のシート場合、 C２には =４月!C2 を参照していますが新たに 「５月」シートに ２００１ の番号を追加し並び換えすると行がずれます。 番号２０１０の適正在庫は２００であるべきなのに行のずれで３００になります。 各月別の適正在庫表を別シートに作成してVLOOKUPとか考えましたがもっと簡単な何かいい方法はありませんでしょうか。 御指導を仰ぎたいのは、 新たに 番号 商品名 が追加されても 適正在庫 は行の変化に関係なく追従する方法が、もしも可能な方法があるならご教授願えませんでしょうか。 よろしく御願いします。
- ベストアンサー
- その他MS Office製品
- EXCEL VBA ユーザーフォームを修正するとエラーになります
いつもお世話になっております。 同じような入力作業の手間を省くため、 Excel VBAでユーザーフォームを作りました。 うまく動作するのですが、更に改良を加え、操作を楽にすることを考えました。 プログラムをまとめ、ユーザーフォームに貼り付けてある ボタンを減らそうとしているのですが、ボタンを削除すると、次そのフォームを表示しようとした時、エラーが出ます。 デバックを押すと、userform.show のところが黄色くなります。 一度できあがってしまったユーザーフォームに改良を加える時（主にそこの部品を減らす時）はどうすればいいのでしょうか。 ぜひ、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
あの手この手で色々試しました 何かわからなくなりました。 挿入 USERFORM を追加していじくっいるうちに警告は出なくなりました。 ただ 実行のコマンドボタンをクリックしUSERFORMでデーターを入力してシートには反映されなくなりました。 再度別に質問したいと思います。 ご協力ご指導ありがとうございました。