Excel VBA質問箱 IV

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

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


57056 / 76732 ←次へ | 前へ→

【24416】Re:どなたかご指摘を!!
発言  ponpon  - 05/4/21(木) 20:35 -

引用なし
パスワード
   ▼ポンタ さん:
こんばんは。
回答ではありませんが、気になる点をいくつか。

まずTextBoxの名前がまず悪いと思います
>テキストA
>テキストa
大文字と小文字ではなく、はっきりと区別できる名前がよいと思います。
ちなみに私の環境では、設定できませんでした。

次に、
>テキストA = Worksheets("I").Cells(27, 1).Value
テキストA.text = Worksheets("I").Cells(27, 1).Value
のようにしたほうが・・・


Private Sub テキストA_AfterUpdate()
  Dim 変数0 As Currency

  Worksheets("I").Cells(27, 1) = テキストA  ’これと
      
  
  On Error GoTo エラー処理へ   
    ↑ ’どんなエラーを想定しているのでしょう
  
  変数0 = テキストA
  ActiveCell = 変数0             ’これは、同じじゃないの?
  

  Exit Sub
  エラー処理へ:
  テキストA = ""
  ActiveCell = ""
  End Sub

0 hits

【24409】どなたかご指摘を!! ポンタ 05/4/21(木) 18:38 質問
【24416】Re:どなたかご指摘を!! ponpon 05/4/21(木) 20:35 発言
【24420】Re:どなたかご指摘を!! ポンタ 05/4/21(木) 21:32 お礼

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