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内に表示したい文字？）
４個ともTextboxの表示内容を表しているのでしょうか？
とにかく上記のようにWorksheets("sheet1")により、
シートを指定して下さい。

！！なお、コントロールツールボックスのTextboxを使って下さい。！！
【7597】Re:入力ボックスの数値を、テキストボック...
質問  みさっぴ  - 03/9/9(火) 12:08 -
引用なし
パスワード
   ▼INA さん：

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

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


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

　　　　　　　　　ＯＫ　←コマンドボタン

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=Ｇ,dV=" & Chr(10) & "C=I/dV/dt= E(F)""　　　　　　　↑　　　　　　　　　　↑　　　　　　　　　　　　　　　↑
　　　　　　　　　
矢印部分のところに代入したいのですが、このように書くと、そのまま
ＡとかＢとかになってしまいます。

定義などが抜けているのでしょうか。
【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=Ｇ,dV=" & Chr(10) & "C=I/dV/dt= E(F)""　　　　　　　↑　　　　　　　　　　↑　　　　　　　　　　　　　　　↑
>　　　　　　　　　
>矢印部分のところに代入したいのですが、このように書くと、そのまま
>ＡとかＢとかになってしまいます。

""でくくると文字列になりますので、変数は""で囲まないで下さい。
考え方は　& 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