教えて下さい。
写真のように、『User Form1』の行き先種別の項目から『盤』『機器』『器具etc』の三種類を選択し、行き先リストに追加できるようにしたいのですが、リストに追加された時に、『盤』『機器』『器具etc』ごとに集めたいのですが上手くいきません。教えて下さいお願いします。
下記は、ただリストに追加するのみのものです。
D8:F17 行き先
D8:F11 機器
D11:F14 盤
D11:F17 器具etc
Private Sub キャンセルButton_Click()
Unload 行き先追加
End Sub
Private Sub UserForm_Initialize()
With 行き先種別
.AddItem "盤"
.AddItem "機器"
.AddItem "器具etc"
End With
End Sub
Private Sub 追加Button_Click()
Dim insertRow As Long
insertRow = Range("行き先").Rows.Count
Sheets("データ").Unprotect
Range("行き先").Rows(insertRow).Insert Shift:=xlDown
Range("行き先").Cells(insertRow, 2) = 行き先.Text
Range("行き先").Cells(insertRow, 3) = 略称.Text
Range("行き先").Cells(insertRow, 1) = 行き先種別.Text
Sheets("データ").Protect
Unload 行き先追加
End Sub
写真のように、『User Form1』の行き先種別の項目から『盤』『機器』『器具etc』の三種類を選択し、行き先リストに追加できるようにしたいのですが、リストに追加された時に、『盤』『機器』『器具etc』ごとに集めたいのですが上手くいきません。教えて下さいお願いします。
下記は、ただリストに追加するのみのものです。
D8:F17 行き先
D8:F11 機器
D11:F14 盤
D11:F17 器具etc
Private Sub キャンセルButton_Click()
Unload 行き先追加
End Sub
Private Sub UserForm_Initialize()
With 行き先種別
.AddItem "盤"
.AddItem "機器"
.AddItem "器具etc"
End With
End Sub
Private Sub 追加Button_Click()
Dim insertRow As Long
insertRow = Range("行き先").Rows.Count
Sheets("データ").Unprotect
Range("行き先").Rows(insertRow).Insert Shift:=xlDown
Range("行き先").Cells(insertRow, 2) = 行き先.Text
Range("行き先").Cells(insertRow, 3) = 略称.Text
Range("行き先").Cells(insertRow, 1) = 行き先種別.Text
Sheets("データ").Protect
Unload 行き先追加
End Sub
|
|
|
|
コメント(10)
ぐっさん
であればこんな感じですかね。
Private Sub 追加Button_Click()
With Range(行き先種別.Text)
With .End(xlDown).Resize(, .Columns.Count).Offset(1)
.Insert Shift:=xlDown
.Offset(-1).Value = Array(行き先種別.Text, 行き先.Text, 略称.Text)
End With
End With
Unload 行き先追加
End Sub
>>0のコードと画像を見ながらVBEで書いただけで実際に動作確認はしてないので
イケてないとこあったら修正してみてください。
実際のステートメントは(Unload以外で)２行ですが、長くなりそうなのでWithステートメントでまとめました。
行き先種別コンボボックスが選択されていなかったり、
スタイルがドロップダウンリストでない状態だと不正な文字が入力できちゃったりすると、
With Range(行き先種別.Text) ステートメントで実行時エラーとなるので、
スタイルをドロップダウンリストにした上で
追加Button_Click()プロシージャの先頭で入力チェック(未選択)にするか、
UserForm_Initialize()プロシージャで .text="盤" を追加するか、
.listindex=0 を追加するなどの対応をしておいた方が無難そうですね。
であればこんな感じですかね。
Private Sub 追加Button_Click()
With Range(行き先種別.Text)
With .End(xlDown).Resize(, .Columns.Count).Offset(1)
.Insert Shift:=xlDown
.Offset(-1).Value = Array(行き先種別.Text, 行き先.Text, 略称.Text)
End With
End With
Unload 行き先追加
End Sub
>>0のコードと画像を見ながらVBEで書いただけで実際に動作確認はしてないので
イケてないとこあったら修正してみてください。
実際のステートメントは(Unload以外で)２行ですが、長くなりそうなのでWithステートメントでまとめました。
行き先種別コンボボックスが選択されていなかったり、
スタイルがドロップダウンリストでない状態だと不正な文字が入力できちゃったりすると、
With Range(行き先種別.Text) ステートメントで実行時エラーとなるので、
スタイルをドロップダウンリストにした上で
追加Button_Click()プロシージャの先頭で入力チェック(未選択)にするか、
UserForm_Initialize()プロシージャで .text="盤" を追加するか、
.listindex=0 を追加するなどの対応をしておいた方が無難そうですね。
Kusakabeさんへ
その文字化けは、上から順に丸囲み数字の１、２、３です。
--------------------------------------
ぐっさんへ
> (1)『機器』 所定の位置に追加
> (2)『盤』 所定の位置に追加
> (3)『器具etc 』 は With .End(xlDown). 〜中略〜 で引っかかりました
「引っかかった」とは何かしらの実行エラーが発生したということでしょうか？
作成したファイルをUPしてみましたので同じことが再現するか確認してみていただけますか。
http://o123.jp/mixi/Excel/index.html
※下の方の「マクロでの選別 ・・・」の件 です。
あと、
> また、『機器』の範囲D9:F10を削除して
ですが、最初に提示された構成が変わってしまっては、
つまり仕様が変わってしまっては意図しない動きになるのはよくある話です。
サンプルとして提示したのでそこまで考慮してません。
コンボボックスで指定された名前定義の範囲から、
.End(xlDown) (Ctrl+↓の操作)で、データ範囲の最終行の左端のセルと取得し、
その範囲をResizeで名前定義の列の範囲まで拡大し、
その範囲の１行下の範囲を基準にセルを挿入しているのです。
仕様変更後の構成では、データが１行しかないので
.End(xlDown) で「盤」の名前定義範囲に行ってしまったのですね。
プログラムは思った通りに動くのではなく、書いた通りに動きます。
提示されたコードの意味をわかって使わないと修正もできません。
現状のコードを理解された上で、 ２つ目のWithステートメントの引数を
.Endを使わずに .Rows.Count を利用して書き換えれば修正できると思いますよ。
どうしても出来なかったら、また聞いてみてください。
この修正が出来れば、データが１行も無い状態(空白行だけ)の場合でも対応できるかと。
あ、でも１番上の機器に関しては上の書式を引き継いでの挿入になるから、
それだけだと黄色塗りつぶしの行になるでしょうね。
運用方法に合わせてコード作成してみてください。
※ぐっさんのために、わざと私が修正しないので悪しからずm(__)m
その文字化けは、上から順に丸囲み数字の１、２、３です。
--------------------------------------
ぐっさんへ
> (1)『機器』 所定の位置に追加
> (2)『盤』 所定の位置に追加
> (3)『器具etc 』 は With .End(xlDown). 〜中略〜 で引っかかりました
「引っかかった」とは何かしらの実行エラーが発生したということでしょうか？
作成したファイルをUPしてみましたので同じことが再現するか確認してみていただけますか。
http://o123.jp/mixi/Excel/index.html
※下の方の「マクロでの選別 ・・・」の件 です。
あと、
> また、『機器』の範囲D9:F10を削除して
ですが、最初に提示された構成が変わってしまっては、
つまり仕様が変わってしまっては意図しない動きになるのはよくある話です。
サンプルとして提示したのでそこまで考慮してません。
コンボボックスで指定された名前定義の範囲から、
.End(xlDown) (Ctrl+↓の操作)で、データ範囲の最終行の左端のセルと取得し、
その範囲をResizeで名前定義の列の範囲まで拡大し、
その範囲の１行下の範囲を基準にセルを挿入しているのです。
仕様変更後の構成では、データが１行しかないので
.End(xlDown) で「盤」の名前定義範囲に行ってしまったのですね。
プログラムは思った通りに動くのではなく、書いた通りに動きます。
提示されたコードの意味をわかって使わないと修正もできません。
現状のコードを理解された上で、 ２つ目のWithステートメントの引数を
.Endを使わずに .Rows.Count を利用して書き換えれば修正できると思いますよ。
どうしても出来なかったら、また聞いてみてください。
この修正が出来れば、データが１行も無い状態(空白行だけ)の場合でも対応できるかと。
あ、でも１番上の機器に関しては上の書式を引き継いでの挿入になるから、
それだけだと黄色塗りつぶしの行になるでしょうね。
運用方法に合わせてコード作成してみてください。
※ぐっさんのために、わざと私が修正しないので悪しからずm(__)m
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
