Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13186 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【6038】ドロップダウンボックスのコピーペースト ヤマ 03/6/13(金) 10:47

【6045】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/13(金) 16:32

【6048】Re:ドロップダウンボックスのコピーペースト ichinose 03/6/13(金) 16:59

【6051】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/13(金) 17:20

【6087】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/16(月) 12:49

【6092】Re:ドロップダウンボックスのコピーペースト ichinose 03/6/16(月) 13:33

【6094】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/16(月) 14:03

【6096】Re:ドロップダウンボックスのコピーペースト ichinose 03/6/16(月) 15:10

【6097】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/16(月) 15:23

【6146】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/17(火) 17:04

【6152】Re:ドロップダウンボックスのコピーペースト ichinose 03/6/17(火) 18:57

【6163】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/18(水) 8:58

【6167】Re:ドロップダウンボックスのコピーペースト こうちゃん 03/6/18(水) 10:07

【6170】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/18(水) 10:47

【6174】Re:ドロップダウンボックスのコピーペースト こうちゃん 03/6/18(水) 11:56

【6175】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/18(水) 11:58

【6183】Re:ドロップダウンボックスのコピーペースト こうちゃん 03/6/18(水) 13:12

【6190】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/18(水) 15:25

【6191】Re:ドロップダウンボックスのコピーペースト ichinose 03/6/18(水) 16:06

【6201】Re:ドロップダウンボックスのコピーペースト ヤマ 03/6/19(木) 11:03

【6213】Re:ドロップダウンボックスのコピーペースト ichinose 03/6/19(木) 13:29

【6606】Re:ドロップダウンボックスのコピーペースト ヤマ 03/7/14(月) 16:58

【6612】Re:ドロップダウンボックスのコピーペースト ichinose 03/7/15(火) 9:56

【6613】Re:ドロップダウンボックスのコピーペースト ヤマ 03/7/15(火) 9:58

【6633】Re:ドロップダウンボックスのコピーペースト ichinose 03/7/15(火) 18:05

【6637】Re:ドロップダウンボックスのコピーペースト ヤマ 03/7/16(水) 12:24


	【6038】ドロップダウンボックスのコピーペースト

ヤマ

- 03/6/13(金) 10:47 -


	引用なし

	パスワード

Q&Aを作るためにあらかじめ定型化されている答えはドロップダウンボックスに入れておこうと思って以下のように書いてみました。 M.DropDowns.Add(172.5, 177.75, 464.25, 15).Select M.Rows(15).RowHeight = 14.25 With Selection .ListFillRange = "LIST!$A$1:$A$11" .LinkedCell = 16 .DropDownLines = 11 .Display3DShading = True End With Dim D2 As Variant D2 = 21 Do Until D2 > 500 　　If M.Cells(D2, 3) = "REASON:" Then 　　M.Shapes("Drop Down 2").Select 　　Selection.Copy 　　M.Cells(D2, 3).Select 　　ActiveSheet.DropDowns.Add(172.5, 177.75, 464.25, 15).Select 　　ActiveSheet.Paste 　　Selection.ShapeRange.IncrementLeft 1.5 　 Selection.ShapeRange.IncrementTop -10.5 　　Rows(D2).RowHeight = 14.5 　　End If 　　D2 = D2 + 6 Loop こうしたところ一番初めのドロップダウンは正しいところに貼り付けられるのですがその下のものは最初に貼り付けられているドロップダウンの近くにペーストされてしまいます。ドロップダウンの場所を指定して動いたりしないように設定はできるのでしょうか？おわかりの方、教えてください。


	【6045】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/13(金) 16:32 -


	引用なし

	パスワード

If M.Range("C12") <> "NO TRANSACTION TO BE REPORTED" Then Do Until D2 > 500 ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=14).Select If M.Cells(D2, 3) = "REASON:" Then Selection.Copy M.Cells(D2, 3).Select ActiveSheet.Paste End If D2 = D2 + 6 Loop End If 以上のようにしてみるとちょうどいい場所にコンボボックスが出来上がってくれますが、コンボボックスの中身の設定はどうしたらいいでしょうか？よろしくお願いします。


	【6048】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/6/13(金) 16:59 -


	引用なし

	パスワード

▼ヤマさん：
こんにちは。暑いですねえ､大して仕事してないのに暑い・・・。
Activexに変えたんですね。
Sub test()
　 Dim combo As Object
　 Set combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, _
　　　 DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=14)
　 With combo
　　 .ListFillRange = "$A$1:$A$11"
　　 .LinkedCell = "b2"
　　 End With
End Sub

とすると、セルA1～A11の内容がリストメンバになり、
選択したメンバがセルB2に入ります。
方法は、他にもいろいろありますが、一例です。


	【6051】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/13(金) 17:20 -


	引用なし

	パスワード

Ichinoseさん、どうもありがとうございます！できちゃいました！本当に助かりました！もう一度ありがとうございます！湿度が高くてムシムシしますがお体に気をつけてまた何かあったら助けてくださいね。


	【6087】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/16(月) 12:49 -


	引用なし

	パスワード

こんにちは。もうひとつ伺いたいのですが Listfillrangeの中に入っているもののをたとえば、A2の表示したままコピー・ペーストする場合にはどうしたらいいのでしょうか？たびたびすみませんがよろしくお願いします。 ▼ヤマさん： >Ichinoseさん、 >どうもありがとうございます！ >できちゃいました！ >本当に助かりました！ >もう一度ありがとうございます！ > >湿度が高くてムシムシしますが >お体に気をつけてまた何かあったら助けてくださいね。


	【6092】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/6/16(月) 13:33 -


	引用なし

	パスワード

▼ヤマさん：
こんにちは。

>もうひとつ伺いたいのですが
>Listfillrangeの中に入っているもののをたとえば、A2の表示したまま
>コピー・ペーストする場合にはどうしたらいいのでしょうか？
>たびたびすみませんがよろしくお願いします。
'=====================================================
Sub test1()
　　Range("a1").Copy Range("d1")
End Sub
ということでいいのでしょうか？
それとも
'=====================================================
Sub test2()
　　Range("d1").Value = "'" & Range("a1").Text
End Sub
ということでしょうか？

他には・・・・。
値と書式だけコピー＆ベースト？


	【6094】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/16(月) 14:03 -


	引用なし

	パスワード

If M.Range("C12") <> "NO TRANSACTION TO BE REPORTED" Then Do Until D2 > 500 Dim CMB2 As Object M.Rows(15).RowHeight = 18.25 Set CMB2 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18) 　 With CMB2 　　 .ListFillRange = "LIST!$A$1:$A$11" 　　 .LinkedCell = M.Cells(D2, 10) 　 End With CMB2.Select If M.Cells(D2, 3) = "REASON:" Then Selection.Copy M.Cells(D2, 3).Select ActiveSheet.Paste M.Rows(D2).RowHeight = 18.25 End If D2 = D2 + 6 Loop End If 上記のようなループで回しているのですが、一番最初のコンボボックスをセットする際に何も指定しないとコンボボックスには何も表示されていないと思いますがこれを一番上にあるアイテムを表示したいのです。（Please Selectという言葉が入っています） Please Selectを表示させたままloopでコピーペーストしていきたいのですがどうやったらいいんでしょうか？お手数おかけします。


	【6096】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/6/16(月) 15:10 -


	引用なし

	パスワード

▼ヤマさん：
こんにちは。
>If M.Range("C12") <> "NO TRANSACTION TO BE REPORTED" Then
>Do Until D2 > 500
>Dim CMB2 As Object
>M.Rows(15).RowHeight = 18.25
>Set CMB2 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18)
>　 With CMB2
>　　 .ListFillRange = "LIST!$A$1:$A$11"
>　　 .LinkedCell = M.Cells(D2, 10)
　　　.object.listindex=0　 'でいいと思います
>　 End With
>CMB2.Select
>If M.Cells(D2, 3) = "REASON:" Then
>Selection.Copy
>M.Cells(D2, 3).Select
>ActiveSheet.Paste
>M.Rows(D2).RowHeight = 18.25
>End If
>D2 = D2 + 6
>Loop
>End If
>
>
>上記のようなループで回しているのですが、一番最初のコンボボックスをセットする際に何も指定しないとコンボボックスには何も表示されていないと思いますが
>これを一番上にあるアイテムを表示したいのです。（Please Selectという言葉が入っています）
>Please Selectを表示させたままloopでコピーペーストしていきたいのですが
>どうやったらいいんでしょうか？お手数おかけします。


	【6097】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/16(月) 15:23 -


	引用なし

	パスワード

できました。たびたびすみませんでした。ありがとうございます。 ▼ichinose さん： >▼ヤマさん： >こんにちは。 >>If M.Range("C12") <> "NO TRANSACTION TO BE REPORTED" Then >>Do Until D2 > 500 >>Dim CMB2 As Object >>M.Rows(15).RowHeight = 18.25 >>Set CMB2 = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18) >>　 With CMB2 >>　　 .ListFillRange = "LIST!$A$1:$A$11" >>　　 .LinkedCell = M.Cells(D2, 10) >　　　.object.listindex=0　 'でいいと思います >>　 End With >>CMB2.Select >>If M.Cells(D2, 3) = "REASON:" Then >>Selection.Copy >>M.Cells(D2, 3).Select >>ActiveSheet.Paste >>M.Rows(D2).RowHeight = 18.25 >>End If >>D2 = D2 + 6 >>Loop >>End If >> >> >>上記のようなループで回しているのですが、一番最初のコンボボックスをセットする際に何も指定しないとコンボボックスには何も表示されていないと思いますが >>これを一番上にあるアイテムを表示したいのです。（Please Selectという言葉が入っています） >>Please Selectを表示させたままloopでコピーペーストしていきたいのですが >>どうやったらいいんでしょうか？お手数おかけします。


	【6146】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/17(火) 17:04 -


	引用なし

	パスワード

度々です。 Dim CMB As Object Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18) 　 With CMB 　　 .ListFillRange = "LIST!$A$1:$A$11" 　　 .LinkedCell = M.Cells(D, 10) 　　 .Object.ListIndex = 0 　　 End With 　　 CMB.Select とすることでコンボボックスの設定をしているのですが最初に作るコンボボックスをrangeの形で指定することはできるのでしょうか？このままだとPCの設定によって使う人によっては微妙なずれが出てきてしまうのです。幸いにも必ずB19というRANGEに統一しているのでどのシートでもこれさえできれば対応可能なのですが。お助けください。


	【6152】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/6/17(火) 18:57 -


	引用なし

	パスワード

▼ヤマさん：
こんばんは。
>度々です。
>Dim CMB As Object
>Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18)
>　 With CMB
>　　 .ListFillRange = "LIST!$A$1:$A$11"
>　　 .LinkedCell = M.Cells(D, 10)
>　　 .Object.ListIndex = 0
>　　 End With
>　　 CMB.Select
>
>とすることでコンボボックスの設定をしているのですが最初に作るコンボボックスをrangeの形で指定することはできるのでしょうか？

すみません、この意味が・・・、20分考えましたが、わかりませんでした。
理解力がなくて・・・。
具体的に教えてくれませんか？


	【6163】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/18(水) 8:58 -


	引用なし

	パスワード

わかりづらくて申し訳ありません。
Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18)
でコンボボックスができる位置を指定したいのですがその場合どうしたらいいでしょうか？ということでした。
よろしくお願いします。

>>度々です。
>>Dim CMB As Object
>>Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=192, Top:=180, Width:=450, Height:=18)
>>　 With CMB
>>　　 .ListFillRange = "LIST!$A$1:$A$11"
>>　　 .LinkedCell = M.Cells(D, 10)
>>　　 .Object.ListIndex = 0
>>　　 End With
>>　　 CMB.Select
>>
>>とすることでコンボボックスの設定をしているのですが最初に作るコンボボックスをrangeの形で指定することはできるのでしょうか？
>
>すみません、この意味が・・・、20分考えましたが、わかりませんでした。
>理解力がなくて・・・。
>具体的に教えてくれませんか？


	【6167】Re:ドロップダウンボックスのコピーペース...

こうちゃん

- 03/6/18(水) 10:07 -


	引用なし

	パスワード

ヤマさん、ichinoseさん、こんにちは

もしかして、こんなこと？

Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=Range("B19").Left, Top:=Range("B19").Top, Width:=Range("B19").Width, Height:=Range("B19").Height)

全然ちがってたらごめんなさい。


	【6170】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/18(水) 10:47 -


	引用なし

	パスワード

ありがとうございます、こうちゃんさん。どうもB19あたりにできあがってしまいます。そもそもよくわかっていないのですがこのLEFT/TOP/WIDTH/HEIGHTっていうのはどういう単位であらわしているものなのですか？僕のpcでこのマクロを動かすとちょうどいい場所にコンボボックスがADDされるのですが他の人のPCですと微妙にずれるんです。なので決まったRANGEにコンボボックスを作成したほうが良いかと思ったのです。この微妙にずれる原因を直したほうが早道ならそうしたいのですが考えられる原因としては何があるでしょうか？フォントとかかとおもって見てみたのですがそうではないようです。 ▼こうちゃんさん： >ヤマさん、ichinoseさん、こんにちは > >もしかして、こんなこと？ > >Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, DisplayAsIcon:=False, Left:=Range("B19").Left, Top:=Range("B19").Top, Width:=Range("B19").Width, Height:=Range("B19").Height) > >全然ちがってたらごめんなさい。


	【6174】Re:ドロップダウンボックスのコピーペース...

こうちゃん

- 03/6/18(水) 11:56 -


	引用なし

	パスワード

ヤマさん、こんにちは
>どうもB19あたりにできあがってしまいます。
はい、B19に重ねて作るように指定してあります。

>そもそもよくわかっていないのですがこのLEFT/TOP/WIDTH/HEIGHTっていうのは
>どういう単位であらわしているものなのですか？
以下はHELPの抜粋です。
オブジェクトの高さまたは幅をポイント単位で指定します。
1 ポイントは、1/72 インチです。

>僕のpcでこのマクロを動かすとちょうどいい場所にコンボボックスがADDされるのですが他の人のPCですと微妙にずれるんです。なので決まったRANGEにコンボボックスを作成したほうが良いかと思ったのです。この微妙にずれる原因を直したほうが早道ならそうしたいのですが考えられる原因としては何があるでしょうか？フォントとかかとおもって見てみたのですがそうではないようです。

「決まったRANGE」の意味を「範囲」として受け取って、以前の書き込みに
>幸いにも必ずB19というRANGEに統一
という記載がありましたので、B19の位置に作成してみたのですが、解釈が違いましたか？


	【6175】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/18(水) 11:58 -


	引用なし

	パスワード

申し訳ありません！錯乱してしまって変なことを書いてしまいました。 B19にできるはずのものがA19あたりにできあがってしまうということを申し上げたかったんです。A19とA20の間あたりというのが正確な場所です。勘違いをお許しください。 ▼こうちゃんさん： >ヤマさん、こんにちは >>どうもB19あたりにできあがってしまいます。 >はい、B19に重ねて作るように指定してあります。 > >>そもそもよくわかっていないのですがこのLEFT/TOP/WIDTH/HEIGHTっていうのは >>どういう単位であらわしているものなのですか？ >以下はHELPの抜粋です。 >オブジェクトの高さまたは幅をポイント単位で指定します。 >1 ポイントは、1/72 インチです。 > >>僕のpcでこのマクロを動かすとちょうどいい場所にコンボボックスがADDされるのですが他の人のPCですと微妙にずれるんです。なので決まったRANGEにコンボボックスを作成したほうが良いかと思ったのです。この微妙にずれる原因を直したほうが早道ならそうしたいのですが考えられる原因としては何があるでしょうか？フォントとかかとおもって見てみたのですがそうではないようです。 > >「決まったRANGE」の意味を「範囲」として受け取って、以前の書き込みに >>幸いにも必ずB19というRANGEに統一 >という記載がありましたので、B19の位置に作成してみたのですが、解釈が違いましたか？


	【6183】Re:ドロップダウンボックスのコピーペース...

こうちゃん

- 03/6/18(水) 13:12 -


	引用なし

	パスワード

ヤマさん、こんにちは

>申し訳ありません！
>錯乱してしまって変なことを書いてしまいました。
>B19にできるはずのものがA19あたりにできあがってしまうということを
>申し上げたかったんです。A19とA20の間あたりというのが正確な場所です。
>勘違いをお許しください。

えと、こちらで試験するとB19にぴたり重なります。
Excel2000、Excel2002、WinNT、Wiｎ2000の組み合わせの環境で試験しました。

現象が再現できませんので困りました。どうしましょ？

B19の指定を他に変えてもおなじですか？


	【6190】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/18(水) 15:25 -


	引用なし

	パスワード

他のRANGEを指定してもなぜか左に寄るようになってしまいます。なぜでしょう・・・。ちょっとのずれなので気にしなければ気にしないで大丈夫なんですが・・・。実物も見せずに変な質問ばかりして済みませんでした。ありがとうございました。


	【6191】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/6/18(水) 16:06 -


	引用なし

	パスワード

▼ヤマさん：
こうちゃんさん、フォローありがとうございます。
ツリー見て、意味がやっとわかりました（駄目ですねえ）。

>他のRANGEを指定してもなぜか左に寄るようになってしまいます。

これって、WidthとHeightに+2ぐらいしとくと何とかなる話ですか？

Set CMB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
　　　　Link:=True, DisplayAsIcon:=False, _
　　　　Left:=Range("B19").Left, _
　　　　Top:=Range("B19").Top, _
　　　　Width:=Range("B19").Width + 2, _
　　　　Height:=Range("B19").Height + 2)

違いました？


	【6201】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/6/19(木) 11:03 -


	引用なし

	パスワード

みなさん、いろいろありがとうございました。ようやく解決しましてEXCELの設定でフォントが違っていたのが問題でした。他の方のpcの設定を僕のものと同じにしたところあるべきところにペーストされました。ひどく初歩的な質問なのですが何かエラーがあったときに黄色くなって止まるかと思うんですが、デバッグにならずにそのままあたかも停止ボタンをおしたかのようになってしまう人もいるんですがその設定はどこで変えたらいいんでしょうか？


	【6213】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/6/19(木) 13:29 -


	引用なし

	パスワード

▼ヤマさん：
こんにちは。
>みなさん、
>いろいろありがとうございました。
>ようやく解決しましてEXCELの設定でフォントが違っていたのが問題でした。
>他の方のpcの設定を僕のものと同じにしたところあるべきところにペーストされました。
>
>ひどく初歩的な質問なのですが何かエラーがあったときに黄色くなって止まるかと思うんですが、デバッグにならずにそのままあたかも停止ボタンをおしたかのようになってしまう人もいるんですがその設定はどこで変えたらいいんでしょうか？
プログラムをエラー個所でトラップさせないということですよね？（意味があってるか
心配)

実行させるプロシジャーの頭で
on error resume next
というステートメントを入れると
エラーのあるコードで止まりません。


	【6606】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/7/14(月) 16:58 -


	引用なし

	パスワード

こんにちは。こちらで教えていただいたマクロに関しては正常に動いているのですがなんだかドロップダウンがいくつもあると開くのが遅かったりプリントするのに時間がかかったりします。excel上でコントロールボックスからドロップダウンとかを足した場合には普通の速さで処理できるのですがVBAでドロップダウンボックスを足した場合には遅くなってしまうのでしょうか？速くする方法をご存知でしたらお教えください。よろしくお願いします。


	【6612】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/7/15(火) 9:56 -


	引用なし

	パスワード

▼ヤマさん：
こんにちは。

>こちらで教えていただいたマクロに関しては正常に動いているのですが
>なんだかドロップダウンがいくつもあると開くのが遅かったりプリントするのに時間がかかったりします。excel上でコントロールボックスからドロップダウンとかを足した場合には普通の速さで処理できるのですがVBAでドロップダウンボックスを足した場合には遅くなってしまうのでしょうか？速くする方法をご存知でしたらお教えください。よろしくお願いします。

シート上にコンボボックスをどのくらい作った場合の現象でしょうか？
こちらでも再現したいので、数を教えてください。
それと同じ数を手動で作成した場合は、「遅い」ということが起きないのですか？


	【6613】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/7/15(火) 9:58 -


	引用なし

	パスワード

こんにちは。いつもすみません。
極端な話、コンボボックスが一個でもあるとプレビューや印刷が2分ほどかかって遅くなるんです。手で作った場合にはさっと印刷ができるのですが・・・

▼ichinose さん：
>▼ヤマさん：
>こんにちは。
>
>>こちらで教えていただいたマクロに関しては正常に動いているのですが
>>なんだかドロップダウンがいくつもあると開くのが遅かったりプリントするのに時間がかかったりします。excel上でコントロールボックスからドロップダウンとかを足した場合には普通の速さで処理できるのですがVBAでドロップダウンボックスを足した場合には遅くなってしまうのでしょうか？速くする方法をご存知でしたらお教えください。よろしくお願いします。
>
>シート上にコンボボックスをどのくらい作った場合の現象でしょうか？
>こちらでも再現したいので、数を教えてください。
>それと同じ数を手動で作成した場合は、「遅い」ということが起きないのですか？


	【6633】Re:ドロップダウンボックスのコピーペース...

ichinose - 03/7/15(火) 18:05 -


	引用なし

	パスワード

▼ヤマさん：
こんにちは。
>極端な話、コンボボックスが一個でもあるとプレビューや印刷が2分ほどかかって遅くなるんです。手で作った場合にはさっと印刷ができるのですが・・・
すみません、返事が遅くなりました。
新規ブックに以下のコードでコンボホックスを作成しました。

'====================================
Sub main()
idx = 20
Do While idx <= 1000
　 Call test(idx)
　 idx = idx + 20
　 Loop
End Sub
'======================================================================
Sub test(idx)
　 Dim combo As Object
　 Set combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, _
　　　 DisplayAsIcon:=False, Left:=100, Top:=idx, Width:=450, Height:=14)
　 With combo
　　 .ListFillRange = "$A$1:$A$11"
　　 .LinkedCell = "b2"
　　 End With
End Sub

しかし、印刷（印刷ダイアログが表示されるまでの時間）やプレビュー等は迅速に行われていました。
何度か保存/読み込みを繰り返しましたが、大きな変化はありませんでした。
ちなみにシートを保護した場合、印刷やプレビューが若干遅くなりましたが
数秒でした。

コントロールの不可以外も調べてみたらどうでしょうか？
回答でなくて、すみません。


	【6637】Re:ドロップダウンボックスのコピーペース...

ヤマ

- 03/7/16(水) 12:24 -


	引用なし

	パスワード

ichinoseさん、いつもありがとうございます。
やはりexcelの問題なんでしょうか。再インストールもしてみたんですが
状況は変わりません・・・・。
会社のPCなのでヘルプデスクの方にみてもらうことにしました。
ご面倒おかけしましてすみませんでした。

▼ichinose さん：
>▼ヤマさん：
>こんにちは。
>>極端な話、コンボボックスが一個でもあるとプレビューや印刷が2分ほどかかって遅くなるんです。手で作った場合にはさっと印刷ができるのですが・・・
>すみません、返事が遅くなりました。
>新規ブックに以下のコードでコンボホックスを作成しました。
>
>'====================================
>Sub main()
>idx = 20
>Do While idx <= 1000
>　 Call test(idx)
>　 idx = idx + 20
>　 Loop
>End Sub
>'======================================================================
>Sub test(idx)
>　 Dim combo As Object
>　 Set combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=True, _
>　　　 DisplayAsIcon:=False, Left:=100, Top:=idx, Width:=450, Height:=14)
>　 With combo
>　　 .ListFillRange = "$A$1:$A$11"
>　　 .LinkedCell = "b2"
>　　 End With
>End Sub
>
>しかし、印刷（印刷ダイアログが表示されるまでの時間）やプレビュー等は迅速に行われていました。
>何度か保存/読み込みを繰り返しましたが、大きな変化はありませんでした。
>ちなみにシートを保護した場合、印刷やプレビューが若干遅くなりましたが
>数秒でした。
>
>コントロールの不可以外も調べてみたらどうでしょうか？
>回答でなくて、すみません。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13186 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free