Gizport
1 回答
0
Share (facebook)
399
view
全般

エクセルを起動しても マクロ が反映されません。コードは下記によりま...

エクセルを起動しても マクロ が反映されません。コードは下記によります。コンボボックスに表示をさせたいのですが・・・。ソフトの初心者で誠に恐縮です。どなたかご教授のほどよろしくお願い申し上げます。Private Sub UserForm_Initialize()ComboBox1.ClearComboBox2.ClearComboBox11.ClearComboBox12.ClearComboBox3.ClearComboBox4.ClearComboBox5.ClearComboBox6.ClearComboBox7.ClearComboBox8.ClearComboBox9.ClearComboBox10.ClearComboBox13.ClearDim i As IntegerFor i = 0 To 5ComboBox1.AddItem (ThisWorkbook.Worksheets("sheet1").Range("A90").Offset(i, 0))ComboBox2.AddItem (ThisWorkbook.Worksheets("sheet1").Range("c90").Offset(i, 0))NextFor i = 0 To 3ComboBox11.AddItem (ThisWorkbook.Worksheets("sheet1").Range("e90").Offset(i, 0))ComboBox12.AddItem (ThisWorkbook.Worksheets("sheet1").Range("m90").Offset(i, 0))NextFor i = 0 To 4ComboBox3.AddItem (ThisWorkbook.Worksheets("sheet1").Range("u90").Offset(i, 0))ComboBox4.AddItem (ThisWorkbook.Worksheets("sheet1").Range("aa90").Offset(i, 0))ComboBox5.AddItem (ThisWorkbook.Worksheets("sheet1").Range("ag90").Offset(i, 0))ComboBox6.AddItem (ThisWorkbook.Worksheets("sheet1").Range("am90").Offset(i, 0))ComboBox7.AddItem (ThisWorkbook.Worksheets("sheet1").Range("u96").Offset(i, 0))ComboBox8.AddItem (ThisWorkbook.Worksheets("sheet1").Range("aa96").Offset(i, 0))ComboBox9.AddItem (ThisWorkbook.Worksheets("sheet1").Range("ag96").Offset(i, 0))ComboBox10.AddItem (ThisWorkbook.Worksheets("sheet1").Range("am96").Offset(i, 0))ComboBox13.AddItem (ThisWorkbook.Worksheets("sheet1").Range("a102").Offset(i, 0))NextEnd Sub
Yahoo!知恵袋 4903日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
何か、効率の良くないコードですね。でも、ComboBox1~2 は、ちゃんとリストが設定されますよ。コンボの▼を押してみましたか? 多分他もいいかと・・・コンボボックスのリストをシートの範囲を《 固定 》して設定しているようですが、それなら RowSourceプロパティを予め設定すれば済むように思いますが・・・ そうすれば、VBAは、必要ありません。たとえば、ComboBox1を右クリックし、RowSourceプロパティにSheet1!A90:A95 と設定すればいいだけと思います。> For i = 0 To 5> ComboBox1.AddItem (ThisWorkbook.Worksheets("sheet1").Range("A90").Offset(i, 0))は、同じ ThisWorkbook.Worksheets.~ を何回も使わず、With ThisWorkbook.Worksheets("sheet1") ComboBox1.AddItem .Range("A90").Offset(i, 0).Value''End Withのように、スッキリさせます。---補足に対して ---> 一度、閉じるとまたマクロが反映されない状態UserForm_Initializeイベントですから、フォームを開いたときに実行されます。UserForm1.Show は何処に記述していますか?
Yahoo!知恵袋 4902日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
58
Views
質問者が納得ベストかどうかは分かりませんが、 =LOOKUP(B2,{0,75,90,95},{"D","C","B","A"}) なんかはシンプルですかね。
4754日前view58
全般
84
Views
質問者が納得◇ 追記 ◇ EXCEL VBAからワード文書を開き、 単語検索をされるという場合、 この [追記] 前の記述部(下段)にある URL先での、 ご質問者の質問欄内で提示しておられた http://technet.microsoft.com/ja-jp/library/ee692875.aspx、 での、サンプルコ-ドを 参照していただければ幸いです。 Excel側に、 このサンプルコ-ドを応用したコ-ドを作成し、 検索させた場合、ワード文書のページ数を取得する必要もありますし、 A列の複数セルを順...
4759日前view84
全般
117
Views
質問者が納得求めたいセルを選択し、【ホーム】タブー【編集】グループー【オートSUM】▼【最大値】または【最小値】を選択すれば計算式が入ります。(下図参照ください。)計算対象を確認し、Enterします。最大値=MAX(A10:A90)最小値=MIN(A10:A90)↑この数式をコピーしてExcelに貼りつけてもOKです。■別方法関数など一切使わずに、(Excel画面一番下のタスクバーの上にあります)ステータスバーで右クリックし、【ステータスバーのユーザー設定】で「最大値」と「最小値」に✓を入れます。セル範囲A10:A90...
4843日前view117
全般
114
Views
質問者が納得ここでいう 「快適」 の基準で言えば「そんなPCではFF14は快適にはできません」という回答しか出ないでしょう。まず、GPUがHD6850ではお話になりません。FF14を 「快適に」 という基準で行くなら、最低限HD6870、6970、GTX570、580が最低ラインでどうにか・・・最高画質で遊びたいならそれぞれクロスファイア、SLI、3WaySLIなどが必須。しかもなぜ違うメーカなので?基本的に問題を抱えたくないなら同一メーカの同一GPUは基本ですが?ケースは全くゲーム向きではありません。最低でもNine...
4899日前view114
全般
121
Views
質問者が納得何か、効率の良くないコードですね。でも、ComboBox1~2 は、ちゃんとリストが設定されますよ。コンボの▼を押してみましたか? 多分他もいいかと・・・コンボボックスのリストをシートの範囲を《 固定 》して設定しているようですが、それなら RowSourceプロパティを予め設定すれば済むように思いますが・・・ そうすれば、VBAは、必要ありません。たとえば、ComboBox1を右クリックし、RowSourceプロパティにSheet1!A90:A95 と設定すればいいだけと思います。> For i =...
4903日前view121

取扱説明書・マニュアル

788view
http://www.arcam.co.uk/.../a90p90_manual.pdf
15 ページ0.79 MB
もっと見る