Excel VBA質問箱 IV

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

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


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

74619 / 76738

←次へ　｜　前へ→


	【6581】すいません、訂正です。

ひで - 03/7/11(金) 14:47 -


	引用なし

	パスワード

▼りんさん　すいません

"＜CK30"になってました
"CK30"　でしたね、よく読んでなかったです(^^;
ごめんなさい。

"＜CK3"や"＜CK5"がいつも4文字だとして・・

Sub test3()

Dim r As Long, N As Long
Dim acs As String, mj As String

acs = ActiveWorkbook.ActiveSheet.Name
N = Sheets(acs).Range("a" & Rows.Count).End(xlUp).Row

　
For r = 1 To N

If Cells(r, 1).Value Like "＜CK*" = True Then

mj = Cells(r, 1).Text
Cells(r + 1, 5) = Right(mj, 3) & "0"

End If

Next r

End Sub

0 hits

▼

【6574】セルに特定の値を入力する りん 03/7/11(金) 11:42