Excel VBA質問箱 IV

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

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


12978 / 13644 ツリー ←次へ | 前へ→

【7589】入力ボックスの数値を、テキストボックスに書き込む みさっぴ 03/9/9(火) 9:44 質問
【7594】Re:入力ボックスの数値を、テキストボック... INA 03/9/9(火) 11:11 回答
【7597】Re:入力ボックスの数値を、テキストボック... みさっぴ 03/9/9(火) 12:08 質問
【7598】Re:入力ボックスの数値を、テキストボック... INA 03/9/9(火) 12:37 回答
【7603】Re:入力ボックスの数値を、テキストボック... みさっぴ 03/9/9(火) 14:58 質問
【7604】Re:入力ボックスの数値を、テキストボック... INA 03/9/9(火) 15:06 回答
【7642】Re:入力ボックスの数値を、テキストボック... みさっぴ 03/9/11(木) 10:00 お礼

【7589】入力ボックスの数値を、テキストボックス...
質問  みさっぴ  - 03/9/9(火) 9:44 -

引用なし
パスワード
   性懲りもなく、よろしくお願いいたします。

こちらでのアドバイスのお陰で、
シートの上に入力ボックスを表示し、
そこで数値を入力して計算をする、
そいうことができました。

次に、入力ボックス上で使用した数値や計算結果を、
シート上に新たに作ったテキストボックス(こちらは
ユーザーフォームではなく、エクセルのもの)に、
書き込みたいのです。


  座標(000,000) (000,000)
  dt=000
  dV=000
  C=0000.0

みたいな感じなんですけど。
000であらわしたところは、入力ボックスから持って来たい
のです。

よろしくアドバイスをお願いいたします。

【7594】Re:入力ボックスの数値を、テキストボック...
回答  INA E-MAIL  - 03/9/9(火) 11:11 -

引用なし
パスワード
   >次に、入力ボックス上で使用した数値や計算結果を、
>シート上に新たに作ったテキストボックス(こちらは
>ユーザーフォームではなく、エクセルのもの)に、
>書き込みたいのです。

<ユーザーフォーム・モジュール>
Worksheets("sheet1").TextBox1.Value = TextBox1.Value
             ↑         ↑
           シート上     ユーザーフォーム上


>  座標(000,000) (000,000)
>  dt=000
>  dV=000
>  C=0000.0
>
>みたいな感じなんですけど。
>000であらわしたところは、入力ボックスから持って来たいのです。
どこがTextboxですか?
座標、dt=、dV=、C=などは何でしょうか?
(セルに記述してある文字?ラベル?Textbox内に表示したい文字?)
4個ともTextboxの表示内容を表しているのでしょうか?
とにかく上記のようにWorksheets("sheet1")により、
シートを指定して下さい。

!!なお、コントロールツールボックスのTextboxを使って下さい。!!

【7597】Re:入力ボックスの数値を、テキストボック...
質問  みさっぴ  - 03/9/9(火) 12:08 -

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

いつもすみません。
しかも質問の意味も分かりにくくて・・・。

今回やりたいのは次のようなことです。
まず、以下のようなユーザーフォームがあります。


座標(TextBox1 , TextBox2) (TextBox3 , TextBox4) ← 入力する

         OK ←コマンドボタン

dt = TextBox5     ← 
dV = TextBox6     ←計算結果 
C = TextBox7     ←


これら、ユーザーフォーム上のTextBoxの数値を、


>>  座標(000,000) (000,000)
>>  dt=000
>>  dV=000
>>  C=0000.0
>>

このような形にまとめて、1つのテキストボックス(シートの上に
直接表示されるもの)に表示したいのです。

ユーザーフォームの数値を、シート上のテキストボックスに
代入(?)する方法が知りたいのですけれど。

まだ、質問が分かりにくいとは思いますが、
よろしければアドバイスをください。

【7598】Re:入力ボックスの数値を、テキストボック...
回答  INA E-MAIL  - 03/9/9(火) 12:37 -

引用なし
パスワード
   >ユーザーフォームの数値を、シート上のテキストボックスに
>代入(?)する方法が知りたいのですけれど。

すでにご説明したのですが・・・?

【7603】Re:入力ボックスの数値を、テキストボック...
質問  みさっぴ  - 03/9/9(火) 14:58 -

引用なし
パスワード
   ▼INA さん:
ありがとうございます。
.Valueをつけると数値が取り出せるのですね。
でも、その後がよく分からなくて、


Dim A, B, C, D, E, F, G, H As String
  A = TextBox1.Value
  B = TextBox2.Value
  C = TextBox3.Value
  D = TextBox4.Value
  E = TextBox5.Value
  F = TextBox6.Value
  G = TextBox7.Value
  H = TextBox8.Value


という風に、とりあえず数値だけを取り出してみました。
それをテキストボックスに代入したくて、

   
  Selection.Characters.Text = _                ↓
    "5番目の山で測定" & Chr(10) & "電流値mA" & Chr(10) & "( A, B)      (C,D )" & Chr(10) & "dt=G,dV=" & Chr(10) & "C=I/dV/dt= E(F)""       ↑          ↑               ↑
         
矢印部分のところに代入したいのですが、このように書くと、そのまま
AとかBとかになってしまいます。

定義などが抜けているのでしょうか。

【7604】Re:入力ボックスの数値を、テキストボック...
回答  INA E-MAIL  - 03/9/9(火) 15:06 -

引用なし
パスワード
   >  Selection.Characters.Text = _                ↓
>    "5番目の山で測定" & Chr(10) & "電流値mA" & Chr(10) & "( A, B)      (C,D )" & Chr(10) & "dt=G,dV=" & Chr(10) & "C=I/dV/dt= E(F)""       ↑          ↑               ↑
>         
>矢印部分のところに代入したいのですが、このように書くと、そのまま
>AとかBとかになってしまいます。

""でくくると文字列になりますので、変数は""で囲まないで下さい。
考え方は & Chr(10) & ← と同じです。 
 
 Dim A As string  
 A = TextBox1.Value
 Msgbox "これは" & A & "サンプルです。"

【7642】Re:入力ボックスの数値を、テキストボック...
お礼  みさっぴ  - 03/9/11(木) 10:00 -

引用なし
パスワード
   ▼INA さん:
ありがとうございました!
やっとマクロが完成しそうです。
いつもあきれるような質問に答えてくださって、
本当に感謝しています。

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