Excel VBA質問箱 IV

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

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


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

32317 / 76807

←次へ　｜　前へ→


	【49729】NCプログラムの一部を表記したいのですが

おやじvba若葉マーク

- 07/6/18(月) 23:28 -


	引用なし

	パスワード

エクセルシート
セルA　　　セルB　　セルC　　　　セルD　　セルE　　セルF
加工部位　刃先Ｒ　面の大きさ　角度　　径　　　Ｚ位置
2　　　　　　　0.2　　　 0.300　　　　 60　　　　20.000　　12.500

Sub 外径面取4()
Dim 行番号 As Integer
Dim A As Integer
Dim B As Double
Dim C As Double
Dim D As Double
Dim E As Double
Dim F As Double
Dim H As Double
Dim I As Double

A = 1
B = 2
C = 3
D = 4
E = 5
F = 6
H = 8
I = 9
kakudo = 0.01745329252

With ActiveSheet
For 行番号 = 2 To 9999
If .Cells(行番号, B).Value = "" Then
　 Exit For
　 Else
　 .Cells(行番号 + 3, H).Value = "G3" & "X" & Round(.Cells(行番号, E).Value, 3) & "Z" & _
　 Round((.Cells(行番号, F).Value - .Cells(行番号, C).Value * Tan(.Cells(行番号, D).Value * kakudo) _
　 * Tan((90 - .Cells(行番号, D).Value) * kakudo) - .Cells(行番号, B).Value), 3) & "R" & Cells(行番号, B).Value
　End If
　Next 行番号
End With
End Sub

これでVBAを実行すると。結果が
G3X20Z12R0.2
となりましたが
G3X20.Z12.R0.2
と表記するにはどうしたらよいのでしょうか？どなたか教えてください。よろしくお願いします。

0 hits

▼

【49729】NCプログラムの一部を表記したいのですが おやじvba若葉マーク 07/6/18(月) 23:28

≪