Excel VBA質問箱 IV

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

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


41455 / 76735 ←次へ | 前へ→

【40360】Re:テキストボックスのデータ反映不具合
お礼  アーバン  - 06/7/12(水) 15:03 -

引用なし
パスワード
   ▼ハト さん:

謎の不具合が解明しました。
1ヶのオプションボタンを文字の書体関係、幅、高さなど一定のものを作成し、
あとは、コピペで配置していたのがいけませんでした。
プロパティウインドのドロップダウン内を再度見回したら見慣れないものが一つ・・・
ある1つのオプションボタンにそのそっくりさんが同じ位置に重なっておりました。
コピペ後の位置移動し忘れが1つあったと言うことと思います。

削除後は、問題なくテキストボックスのコントロールソース通りデータは反映され、解決しました。
お騒がせとなりました。tabstopの様に1ヶのコントロールのコントロールソースを変更すれば、
重複しない様な仕組みには、なっていなかったのですね。

しかし、教わりましたselectを極力使わない下記の方法を早速取り入れ、
スピードアップやコードの減量でこころまでスッキリです。
ちなみに、Screenupdateingの方は、体感での変化はありませんでした。
色々と本当にありがとうございました。
※何かのあとのRange("A1").Selectは、私の癖の様です。不要ですね。

>>Private Sub ido1()
>>
>>  Range("A1:AQ1").Copy Destination:=Cells(4 + Frame6.Tag, 1)
>>  
>>  Rows("1:1").ClearContents
>>  Range("A1").Select  '←これも不要?
>>
>>End Sub
>>
>>ですみます
>>
>>2. Application.ScreenUpdating = Falseを使う
>>例えば
>>
>>Private Sub ido1()
>>  
>>  Application.ScreenUpdating = False
>>
>>    ・・・・・・
>>    ・・・・・・
>>    ・・・・・・
>>    ・・・・・・
>>    ・・・・・・
>>
>>  Application.ScreenUpdating = True
>>
>>End Sub
>>
>>というところでしょうか?

0 hits

【40123】テキストボックスのデータ反映不具合 アーバン 06/7/7(金) 10:55 質問
【40133】Re:テキストボックスのデータ反映不具合 ハト 06/7/7(金) 13:06 回答
【40235】Re:テキストボックスのデータ反映不具合 アーバン 06/7/10(月) 8:44 回答
【40278】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 15:24 回答
【40286】Re:テキストボックスのデータ反映不具合 アーバン 06/7/10(月) 16:38 質問
【40295】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 18:02 発言
【40296】Re:テキストボックスのデータ反映不具合 ハト 06/7/10(月) 19:04 発言
【40307】Re:テキストボックスのデータ反映不具合 アーバン 06/7/11(火) 10:40 お礼
【40360】Re:テキストボックスのデータ反映不具合 アーバン 06/7/12(水) 15:03 お礼
【40366】Re:テキストボックスのデータ反映不具合 ハト 06/7/12(水) 16:07 発言

41455 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free