Excel VBA質問箱 IV

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

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


51817 / 76732 ←次へ | 前へ→

【29772】Re:金額を1桁ずつ分けて表示させたい
質問  ハル  - 05/10/13(木) 13:48 -

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

早速試してみたのですが、途中でエラーが出てしまいます。 

> .Offset(, -(x - i)) = Mid(txt, i, 1)
 
ここの記述部分で

実行時エラー'1004'
アプリケーション定義またはオブジェクト定義のエラーです。

とでてきます。

せっかく教えていただいたのに申し訳ありませんが、どうしてだか
わかりますか?

あと、先ほどの例とは違って一度に複数の金額を反映させることは
可能でしょうか?

例2)
《sheet1》
    A    B    C    D    E    F
1   名前   金額   繰越   消費税  合計 
2   はなこ  50,000       2,500  \52,500
3   たろう  45,000  -5,000  2,000  \42,000
4   あきこ  150,000  50,000  10,000 \210,000 
 
《sheet2》
フォーマット1ページのサイズ
A1〜Z10
    G    H    I J K L M N O P
6   はなこ            5 0 0 0 0
7
8                    2 5 0 0
9                \ 5 2 5 0 0



16  たろう            4 5 0 0 0
17                 △ 5 0 0 0
18                  2 0 0 0
19               \ 4 2 0 0 0



2 hits

【29768】金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 11:57 質問
【29769】Re:金額を1桁ずつ分けて表示させたい seiya 05/10/13(木) 12:25 回答
【29770】Re:金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 12:53 発言
【29772】Re:金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 13:48 質問
【29773】Re:金額を1桁ずつ分けて表示させたい seiya 05/10/13(木) 14:16 回答
【29775】Re:金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 15:27 お礼
【29774】Re:金額を1桁ずつ分けて表示させたい seiya 05/10/13(木) 14:29 回答

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