VBAで値を分解して計算式実行後に結合させたい。

Question

VBAを使用し、値を指定の位置で分解後、分解した値にに計算式を実行してから連結させたいです。

Dim AP41 As Range
Set AP41 = srcSheet.Range("AP41")
Dim te As Long
te = Left(AP41, 2) / 60

AP41 = Left(AP41, Len(AP41) - 2)

Range(A1).Value = AP41 & "." & te
        

AP41には取得した値「925」が入っています。
これを「９」と「２５」に分け、「25」は60で割り、その結果を「.」を挟んで「9」と繋げようとしているのですが上手くいきません。（結果は「9.5」としたい）

調べた結果「25」を取得するにはleft()を使用すれば良いとあったので使ってみたのですが上記だと「2」がteに入っています。

また、「9」を取得しようとしている部分は「変更しようとしているセルやグラフは保護されているシート上にあります。」というエラーが出ます。
この部分はセルもグラフも全く関係ない、変数の内容のはずなのになぜ出てくるかもわかりません。
こちらも調べてみたのですが出てきたのはメソッドを使用してシートを保護する設定が出来るというものでしたが、今回その様な設定もしていません。

お手数ですがどなたかお解りになる方、ご教授頂けますと助かります。

Comments

[kenshirou]

『「25」は60で割り、その結果を「.」を挟んで...』とありますが、25/60は0.41666...です。
「結果は「9.5」としたい」とのことですが、「9.5」の「5」はどのように導き出しているのでしょうか？

Answer 1

Dim AP41 As Range
Set AP41 = srcSheet.Range("AP41")
Dim te As Long
te = Right(AP41, 2)
Dim test As Long
test = Left(AP41.Value, Len(AP41.Value) - 2)

ws.Cells(j, side + 12).Value = test + te / 60

こうしたらできました。

Answer 2

"925"から25を取得したいなら、Left関数ではなくRight関数です。
（Left:左　Right:右）
右から2文字取得したいのであればRight("925", 2)
となります。

あと、

AP41 = Left(AP41, Len(AP41) - 2)

のような式がありますが、確かAP41はRangeなので、このような代入文はエラーになります。
AP41がString変数であれば問題ありません。

Comments

[退会済みユーザー]

ご回答いただきありがとうございます。
すごく参考になりました。