Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11162 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17775】テキストボックスからセルに書き込んだ数値をグラフの値として認識させたい おしえて。 04/9/7(火) 16:01 質問[未読]
【17777】Re:テキストボックスからセルに書き込んだ... IROC 04/9/7(火) 16:14 回答[未読]
【17780】Re:テキストボックスからセルに書き込んだ... Kein 04/9/7(火) 17:02 回答[未読]
【17792】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/7(火) 21:52 質問[未読]
【17804】Re:テキストボックスからセルに書き込んだ... IROC 04/9/8(水) 9:33 回答[未読]
【17808】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/8(水) 10:33 質問[未読]
【17809】Re:テキストボックスからセルに書き込んだ... IROC 04/9/8(水) 10:41 回答[未読]
【17812】Re:テキストボックスからセルに書き込んだ... つん 04/9/8(水) 11:34 発言[未読]
【17814】Re:テキストボックスからセルに書き込んだ... IROC 04/9/8(水) 11:38 回答[未読]
【17816】Re:テキストボックスからセルに書き込んだ... Jaka 04/9/8(水) 12:35 発言[未読]
【17838】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/8(水) 18:07 質問[未読]
【17837】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/8(水) 18:04 質問[未読]
【17836】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/8(水) 18:03 質問[未読]
【17842】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/8(水) 18:18 質問[未読]
【17848】Re:テキストボックスからセルに書き込んだ... つん 04/9/8(水) 19:04 回答[未読]
【17861】Re:テキストボックスからセルに書き込んだ... おしえて。 04/9/8(水) 22:22 お礼[未読]
【17775】テキストボックスからセルに書き込んだ数...
質問  おしえて。  - 04/9/7(火) 16:01 -
引用なし
パスワード
   フォームのツールで、テキストボックスから入力した値をセルに書き込み、
グラフの数値として認識させたいんですが、（セルがグラフと連結しているので）
vbModeAlphaでも、IMEModeOffでもIMEModeDisableでも数値型として認識しないみたいなんです。
セルに１０と書き込まれてもグラフを参照すると０として認識されてしまいます。

どうすれば数値として読み取るでしょうか？
【17777】Re:テキストボックスからセルに書き込ん...
回答  IROC  - 04/9/7(火) 16:14 -
引用なし
パスワード
   現在、どのような記述で上手く行かないのか、お教え頂けませんか？
【17780】Re:テキストボックスからセルに書き込ん...
回答  Kein  - 04/9/7(火) 17:02 -
引用なし
パスワード
   [F9]を押したら、値が反映されませんか ? それでOKなら
Application.Calculate を、入れておけばいいです。
【17792】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/7(火) 21:52 -
引用なし
パスワード
   C = 3
For R = 3 To 49
　　'DATA書き込み
　　If Cells(R, 2) <> "" And _
　　　　Cells(R, 3) = "" And Cells(R, 4) = "" And Cells(R, 5) = "" And Cells(R, 6) = "" And _
　　　　Left(Cells(R, 2), 4) <> "2004" Then
　　
　　　　'シートの保護を解除
　　　　Cells.Select
　　　　ActiveSheet.Unprotect
　　
　　　　Cells(R, C) = FormInput.TextKora
　　　　Cells(R, C + 1) = FormInput.TextZencyo
　　　　Selection.NumberFormatLocal = "0"
　　　　Cells(R, C + 2) = FormInput.TextWeight
　　　　Selection.NumberFormatLocal = "0"
　　　　Cells(R, C + 3) = FormInput.TextComment
　　　　Selection.NumberFormatLocal = "0"
　　　　　　
　　　　'シートの保護
　　　　Cells.Select
　　'　　Range("A1").Activate
　　　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
　　　　Range("A1").Select
　　　　Exit For
　　　　C = 3
　　
　　End If
　　
Next
としていますが、かきこまれた数値をグラフとしては０としか認識しません。
セルをじか入力すれば（数値を）　たとえば、２０を入力すると２０の位置に折れ線としてポイントがうたれます。
【17804】Re:テキストボックスからセルに書き込ん...
回答  IROC  - 04/9/8(水) 9:33 -
引用なし
パスワード
   Keinさんのご質問に対する回答は、いかがなものでしょうか？
【17808】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/8(水) 10:33 -
引用なし
パスワード
   [F9]を押してみましたが、グラフに反映されません。
60　60　60といれてみましたが、セルには60　60　６０が入るのに、
グラフの値は０のままです。
なにがいけないんでしょうか？
【17809】Re:テキストボックスからセルに書き込ん...
回答  IROC  - 04/9/8(水) 10:41 -
引用なし
パスワード
   簡単なグラフとマクロを作って試してみてはいかがでしょうか？

セル値が変更されれば、グラフも変化すると思うのですが・・・

念のため、ご使用の環境をお教え下さい。
【17812】Re:テキストボックスからセルに書き込ん...
発言  つん E-MAIL  - 04/9/8(水) 11:34 -
引用なし
パスワード
   こんにちは。
すみません、横から失礼します。

TextBoxに、Valueプロパティを明記してみたらどうですか？
こちらでいろいろ試してみたところ、
省略してると確かに、グラフに反映されなくて、セルにも左詰に数字が入ってました。
Valueプロパティを明記してみたら、反映してましたけど・・・
なんか変だな・・という気もしないでもないですけど、
一度試してみてください。

エラーにならないにしても、規定のプロパティも、省略せずに明記した方がいいみたいですよ。
【17814】Re:テキストボックスからセルに書き込ん...
回答  IROC  - 04/9/8(水) 11:38 -
引用なし
パスワード
   ついでに、Cells のプロパティも省略しないで
記述しておいた方が良さそうですね。
【17816】Re:テキストボックスからセルに書き込ん...
発言  Jaka  - 04/9/8(水) 12:35 -
引用なし
パスワード
   こんにちは。
パッと見ですが
>Left(Cells(R, 2), 4) <> "2004"
これって、日付の年号ですか？
日付だとしたら、表示形式で日付としているのでしょうか？

グラフって、コードだけ提示されても非常に解りにくいです。
出来たら、グラフに使ったデータなども記載してくれると、再現しやすいし回答者にも伝わりやすいと思うんですけど....。
回答者にコード読んで、自分でデータ作くれっていわれてもねぇ！
【17836】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/8(水) 18:03 -
引用なし
パスワード
   >Valueプロパティを明記してみたら、反映してましたけど・・・

というのは、下記のようにするってことでしょうか？勘違いだったらすみません。

　　　　Cells(R, C).Value = FormInput.TextKora
　　　　Cells(R, C + 1).Value = FormInput.TextZencyo
　　　　Selection.NumberFormatLocal = "0"
　　　　Cells(R, C + 2).Value = FormInput.TextWeight
　　　　Selection.NumberFormatLocal = "0"
　　　　Cells(R, C + 3).Value = FormInput.TextComment
　　　　Selection.NumberFormatLocal = "0"

いれてみましたが、あいかわらずです。
OS2000のエクセル２０００になります。
【17837】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/8(水) 18:04 -
引用なし
パスワード
   ▼IROC さん：
>ついでに、Cells のプロパティも省略しないで
>記述しておいた方が良さそうですね。

アドバイスありがとうございます。
Cellsのプロパティと申しますと、Cellsの前に、シート名を書いたほうがということでしょうか？
【17838】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/8(水) 18:07 -
引用なし
パスワード
   ▼Jaka さん：
>こんにちは。
>パッと見ですが
>>Left(Cells(R, 2), 4) <> "2004"
>これって、日付の年号ですか？
>日付だとしたら、表示形式で日付としているのでしょうか？

はい、そのとおりです。

>グラフって、コードだけ提示されても非常に解りにくいです。
>出来たら、グラフに使ったデータなども記載してくれると、再現しやすいし回答者にも伝わりやすいと思うんですけど....。
>回答者にコード読んで、自分でデータ作くれっていわれてもねぇ！

説明が下手で、すみません。
本当に必要な個所だけ抜き出したほうがよかったですね。
　　　　Cells(R, C).Value = FormInput.TextKora
　　　　Cells(R, C + 1).Value = FormInput.TextZencyo
　　　　Selection.NumberFormatLocal = "0"
　　　　Cells(R, C + 2).Value = FormInput.TextWeight
　　　　Selection.NumberFormatLocal = "0"
　　　　Cells(R, C + 3).Value = FormInput.TextComment
　　　　Selection.NumberFormatLocal = "0"
↑↑ここだけみてもらったほうがわかりやすかったでしょうか？

簡単なモジュールを作れば誤解されなくてよかったですね。ごめんなさい。
【17842】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/8(水) 18:18 -
引用なし
パスワード
   簡単なものをつくってみました。


シート１のa1、a2に
テキスト１
テキスト２
が入っています。
b1、b2にUserForm1上にある、TextBox1とTextBox2から数値をいれて、
b1とb2に数値をいれた　セル値で、折れ線グラフを書くようにリンクしてありますが、
0以外の数値を入力して、セルにも反映されているにかかわらず、
グラフの値が０なんです。

Private Sub CommandButton1_Click()
Range("b1").Value = UserForm1.TextBox1
Range("B2").Value = UserForm1.TextBox2
End Sub

おかしな点があればご指摘ください。よろしくお願いします。
【17848】Re:テキストボックスからセルに書き込ん...
回答  つん E-MAIL  - 04/9/8(水) 19:04 -
引用なし
パスワード
   こんばんは
>>Valueプロパティを明記してみたら、反映してましたけど・・・
>
>というのは、下記のようにするってことでしょうか？勘違いだったらすみません。
違います。
>
>　　　　Cells(R, C).Value = FormInput.TextKora
>　　　　Cells(R, C + 1).Value = FormInput.TextZencyo
>　　　　Selection.NumberFormatLocal = "0"
>　　　　Cells(R, C + 2).Value = FormInput.TextWeight
>　　　　Selection.NumberFormatLocal = "0"
>　　　　Cells(R, C + 3).Value = FormInput.TextComment
>　　　　Selection.NumberFormatLocal = "0"

　　Cells(R, C).Value = FormInput.TextKora.Value

テキストボックスの方に入れないと意味ありません。
勿論、Cellsの方にもある方がいいです。

急いでいるので、とりあえずこれだけ・・・
【17861】Re:テキストボックスからセルに書き込ん...
お礼  おしえて。  - 04/9/8(水) 22:22 -
引用なし
パスワード
   みなさま、ご助言等ありがとうございました。

.valueがいるんですね。
ひさしぶりにVBAをするもので、基本という基本が抜けていたみたいです。
お騒がせして申し訳ありません。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11162 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free