Excel VBA質問箱 IV

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

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


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

【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でも数値型として認識しないみたいなんです。
セルに10と書き込まれてもグラフを参照すると0として認識されてしまいます。

どうすれば数値として読み取るでしょうか?

【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
としていますが、かきこまれた数値をグラフとしては0としか認識しません。
セルをじか入力すれば(数値を) たとえば、20を入力すると20の位置に折れ線としてポイントがうたれます。

【17804】Re:テキストボックスからセルに書き込ん...
回答  IROC  - 04/9/8(水) 9:33 -

引用なし
パスワード
   Keinさんのご質問に対する回答は、いかがなものでしょうか?

【17808】Re:テキストボックスからセルに書き込ん...
質問  おしえて。  - 04/9/8(水) 10:33 -

引用なし
パスワード
   [F9]を押してみましたが、グラフに反映されません。
60 60 60といれてみましたが、セルには60 60 60が入るのに、
グラフの値は0のままです。
なにがいけないんでしょうか?

【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のエクセル2000になります。

【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 -

引用なし
パスワード
   簡単なものをつくってみました。


シート1のa1、a2に
テキスト1
テキスト2
が入っています。
b1、b2にUserForm1上にある、TextBox1とTextBox2から数値をいれて、
b1とb2に数値をいれた セル値で、折れ線グラフを書くようにリンクしてありますが、
0以外の数値を入力して、セルにも反映されているにかかわらず、
グラフの値が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をするもので、基本という基本が抜けていたみたいです。
お騒がせして申し訳ありません。

ありがとうございました。

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