Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12396 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10721】小数点 aa 04/2/10(火) 13:43 質問
【10722】Re:小数点 Asaki 04/2/10(火) 13:46 回答
【10723】Re:小数点 aa 04/2/10(火) 13:58 質問
【10724】Re:小数点 Asaki 04/2/10(火) 14:02 回答
【10725】Re:小数点 aa 04/2/10(火) 14:29 質問
【10726】Re:小数点 aa 04/2/10(火) 14:34 質問
【10727】Re:小数点 Asaki 04/2/10(火) 14:54 回答
【10728】Re:小数点 aa 04/2/10(火) 15:12 質問
【10729】Re:小数点 Asaki 04/2/10(火) 15:16 回答
【10730】Re:小数点 aa 04/2/10(火) 15:21 質問
【10731】Re:小数点 Asaki 04/2/10(火) 15:39 回答
【10732】Re:小数点 aa 04/2/10(火) 16:01 お礼
【10733】Re:小数点 aa 04/2/10(火) 16:24 お礼
【10735】Re:小数点 Asaki 04/2/10(火) 16:26 発言
【10734】Re:小数点 Asaki 04/2/10(火) 16:25 回答
【10736】Re:小数点 aa 04/2/10(火) 17:01 お礼
【10721】小数点
質問  aa E-MAIL  - 04/2/10(火) 13:43 -
引用なし
パスワード
   小数点の移動が0になってしまいます
【10722】Re:小数点
回答  Asaki  - 04/2/10(火) 13:46 -
引用なし
パスワード
   >小数点の移動が0になってしまいます

意味がわかりません。
【10723】Re:小数点
質問  aa  - 04/2/10(火) 13:58 -
引用なし
パスワード
   サーバーのプロシキエラーで、送信ができずに、変なデータを送信してしまいすみません。
配列の値が、小数点の入ったデータを別のテーブルにセットしたいのですが、値が0と綯ってしまいます。どうしたら、値を認識してくれるか教えてください。
【10724】Re:小数点
回答  Asaki  - 04/2/10(火) 14:02 -
引用なし
パスワード
   >配列の値
この時点では、ちゃんと小数ですか？

>別のテーブルにセット
というのは、どのようなコードで実行されているのでしょうか？

もう少し詳細がわからないと、正しい解答はつきにくいかと思います。
【10725】Re:小数点
質問  aa  - 04/2/10(火) 14:29 -
引用なし
パスワード
   Set 工数テーブル = Range("工数テーブル")
Set 工数Eテーブル = Range("工数Eテーブル")
'(略）
'for文で、セット(工数の値を、工数Eへ、足していきたい）
工数テーブル(行)(IDX1) = 工数テーブル(行)(IDX1) * 100
工数Eテーブル(IDX * 3 - 2, IDX1) = 工数Eテーブル(IDX * 3 - 2, IDX1) + 工数テーブル(行)(IDX1)
工数Eテーブル(IDX * 3 - 2, IDX1) = 工数Eテーブル(IDX * 3 - 2, IDX1) / 100
という具合です。
分かりにくくてすみません。
【10726】Re:小数点
質問  aa  - 04/2/10(火) 14:34 -
引用なし
パスワード
   追記：
実際入ってるデータは、整数です。エクセルの表示（書式）は、40.0という風になってます。
受け取り側の書式も、おなじく、小数点以下1桁になってます。
【10727】Re:小数点
回答  Asaki  - 04/2/10(火) 14:54 -
引用なし
パスワード
   データが文字列ということでは？

ブレークポイントを設定して、計算のどこでおかしくなっているかを確認されては如何でしょうか？
【10728】Re:小数点
質問  aa  - 04/2/10(火) 15:12 -
引用なし
パスワード
   ありがとうございます。ﾀｲﾌﾟがデータになってる気がします。
最初の設定の、set命令のところで、”値を　longにする”という定義法ははいでしょうか？
デバックをしたところ、すでに、値は（40.0とあるのに）、0と認識してます。
別件ですが、送信するたび、プロシキエラーが、かかったり、遅れたりで、間があいてしまいます、回答して頂いてるのに申し訳ありません。
【10729】Re:小数点
回答  Asaki  - 04/2/10(火) 15:16 -
引用なし
パスワード
   >最初の設定の、set命令のところで、”値を　longにする”という定義法ははいでしょうか？
>デバックをしたところ、すでに、値は（40.0とあるのに）、0と認識してます。
一番最初の
>Set 工数テーブル = Range("工数テーブル")
の直後で既に値が0になっているということですか？
>工数テーブル
は、どのデータ型で宣言されていますか？
Variant型ですか？

>別件ですが、送信するたび、プロシキエラーが、かかったり、遅れたりで、間があいてしまいます、回答して頂いてるのに申し訳ありません。
お気になさることはないですよ。
取り敢えず、仕事が超ヒマなので。。。（＾＾；）
【10730】Re:小数点
質問  aa  - 04/2/10(火) 15:21 -
引用なし
パスワード
   追記：セット命令で、ﾀｲﾌﾟを、ｌｏｎｇとか、ｉｎｔｅｇｅｒにする方法は分かるのですが、テーブル名を、数値ﾀｲﾌﾟにはできないということなのかなと思うのですが。。。
【10731】Re:小数点
回答  Asaki  - 04/2/10(火) 15:39 -
引用なし
パスワード
   すみません、間違ったこと書いてました。

>>工数テーブル
>は、どのデータ型で宣言されていますか？
>Variant型ですか？
↓
Range型ですか？

あと
>テーブル名
とおっしゃるのは、何でしょうか？
勝手に名前定義と解釈していましたが、違いますか？
ひょっとして、Accessか何かと連携してますか？
【10732】Re:小数点
お礼  aa  - 04/2/10(火) 16:01 -
引用なし
パスワード
   工数テーブルは,Range型です。
テーブル名とは、自分の中で、縦横の配列となった値の総称（RANGE型？）のことと考えてました。わかりにくくてすみません。
Accessと連携はしてません。
【10733】Re:小数点
お礼  aa  - 04/2/10(火) 16:24 -
引用なし
パスワード
   間違って種別をお礼にしてしまいました、
もう一度、コーディングしなおしたら、値が表示されました。
何がいけなかったかわかりません。
宣言のところが、私には、未熟な知識しかない気がすごくしてます。
長らく付き合ってくださってありがとうございました！
【10734】Re:小数点
回答  Asaki  - 04/2/10(火) 16:25 -
引用なし
パスワード
   簡単な例ですが。

AからCの合計値を、E列の同じ行に表示します。
Sub test()

　　Dim rng1　　As Range
　　Dim rng2　　As Range
　　Dim lng1　　As Long
　　Dim lng2　　As Long

　　Set rng1 = Range("A1:C5")
　　Set rng2 = Range("E1:E5")
　　For lng1 = 1 To rng1.Rows.Count
　　　　For lng2 = 1 To rng1.Columns.Count
　　　　　　rng2(lng1, 1).Value = rng2(lng1, 1).Value + rng1(lng1, lng2).Value
　　　　Next lng2
　　Next lng1
End Sub

もうちょっと、周辺のコードがわからないと、どのように上手く言ってないのかが判らないです。
【10735】Re:小数点
発言  Asaki  - 04/2/10(火) 16:26 -
引用なし
パスワード
   >もう一度、コーディングしなおしたら、値が表示されました。
>何がいけなかったかわかりません。
微妙なタイプミスでしょうかね？

取り敢えず、解決されたのであれば良かったです。
【10736】Re:小数点
お礼  aa  - 04/2/10(火) 17:01 -
引用なし
パスワード
   ありがとうございます。
例のとおり、値の後に.valueをつけ加えました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12396 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free