Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73630 / 76732

←次へ　｜　前へ→


	【7576】セル内の文字の位置

どらちゃん - 03/9/8(月) 20:58 -


	引用なし

	パスワード

何度かお世話になっています。

以下のように、小数点以下桁数の一番長いものに桁を合わせて表示させる、というロジックを書いています。

1.332
12.56975
3.5
上記の３つの値があったら、2番目に合わせて
1.33200
12.56975
3.50000
にしたいのです。

そこでうまくいかないのが、「.」（=少数点）の位置を返したいのですが
うまくいきません・・。Findを使っている前後でひっかかります。

どんなことでもいいので、よろしくお願い致します。

****************************
Dim CPpl As Integer
Dim CPvl As String
Dim CPlen As Byte
For Rr=2 to 31
　CP = RSht.Cells(Rr, 12)
　CPpl = CP.Find(".")
　CPvl = Mid(CStr(RSht.Cells(Rr, 12)), CPpl)
　If Len(CPvl) > CPlen Then CPlen = Len(CPvl)
Loop
Dim CTT As Byte
CTT = 0
Do Until CTT = CPlen
　KETA = KETA + "0"
　CTT = CTT + 1
Loop
CSht.Range("G7:G36").NumberFormat = "#,##0." & KETA & ";-#,##0." & KETA

0 hits

▼

【7576】セル内の文字の位置 どらちゃん 03/9/8(月) 20:58

≪