![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと- 題名・名前・本文は必ず入力してください。
- 題名は、できれば具体的な本文内容がイメージできるものにしてください。
- スパムよけのため、本文中に句読点記号が含まれていない場合にはエラーとなります。 「，」「．」ではなく「、」「。」を使ってください。
- [バグ][要望][質問][済][未] の分類は管理人が後から勝手に付加しています。 書き込み時は意識する必要はありません。
[254] マクロの書き方
たすけてください [2012/11/01 20:29:17]
スイマセン！どなたか助けてください！
エクセルのマクロをCassavaでも使いたいのですが
どのように記載すればいいのか不明です。
1行目の左から14個の文字を全て削除して、それ以外の文字列は残したいのです。
データが多く行数が多いので、手動では出来ません。
下記にエクセルのマクロを記載します。
Sub smaple3()
Dim rng1 As Range
For Each rng1 In Intersect(Sheet1.UsedRange, Sheet1.Range("A:A"))
rng1.Value = Mid(rng1.Value, 15)
Next
End Sub
よろしくお願い致します！
Re: [254] マクロの書き方
あすかぜ [2012/11/01 22:24:13]
下記の 3 行で動くと思いますので、試してみてください。
for(y=1; y<=Bottom; y++){
[1,y] = mid([1,y], 15);
}
よろしくお願いします。
Re: [254] マクロの書き方
たすけてください [2012/11/02 10:07:30]
あすかぜ様
試したら動きました！
大変助かりました！
ありがとうございました。