Excel VBA 質問スレ Part71

1 名前：デフォルトの名無しさん [2021/05/25(火) 12:48:01.06 ID:mepUVc/i0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付けるナリ ExcelのVBAに関する質問スレナリ コード書き込みや作成依頼もOKナリ ※前スレ Excel VBA 質問スレ Part70 https://mevius.5ch.net/test/read.cgi/tech/1616072923/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 115 名前：デフォルトの名無しさん [2021/06/04(金) 12:36:18.19 ID:tGFTJ4F20.net] 最初は、動いていたのですが、 そのうち、毎回6行目でエラーが出るようになってしまいました。 例えば D5セルに入力した3桁の数字をした時に D7に百の位、E7に十の位、F7に一の位を表示させたいのです。 入力した結果を見て、再入力することもあるので 関数⇒値貼り付けはやりたくないのです。 できれば、どなたかご教授をお願いします。 ファイルのシートは1枚のみです。 【1 OSの種類 　 】 Windows10 【2 Excelのバージョン】 office365 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long If (Target.Row >= 5 And Target.Row <= 161) And (Target.Row Mod 4 = 1) And (Target.Column = 4) Then r = Target.Row Cells(r + 2, 4) = Cells(r, 4) \ 100 Cells(r + 2, 5) = Cells(r, 4) \ 10 Mod 10　←　実行時エラー1004 Cells(r + 2, 6) = Cells(r, 4) Mod 10 End If End Sub 116 名前：デフォルトの名無しさん [2021/06/04(金) 12:48:38.27 ID:tGFTJ4F20.net] ＞＞１１５ 補足 最初、エラーが出たやつ Cells(r + 2, 4) = Left(Cells(r, 4).Text, 1) Cells(r + 2, 5) = Mid(Cells(r, 4).Text, 2, 1) Cells(r + 2, 6) = Right(Cells(r, 4).Text, 1) 修正しても Cells(r + 2, 4) = Cells(r, 4) \ 100 Cells(r + 2, 5) = Cells(r, 4) \ 10 Mod 10　←　実行時エラー1004 Cells(r + 2, 6) = Cells(r, 4) Mod 10

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef