Excel VBA質問箱 IV

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

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


74597 / 76732 ←次へ | 前へ→

【6597】エラーがでるのですが...
質問  りん  - 03/7/14(月) 11:51 -

引用なし
パスワード
   ひでさん回答ありがとうございます。

教えていただいた式を実際のデータに
あわせて加工してみたのですが、どうも
うまくいきません。

「引数の数が一致していません。または不正な
プロパティを指定しています。」という
エラーがでるのですが...。

a列は実際はc列なので a→c に変えています。
文字を表示させる行は実際にはH列なので、
5→8 に変えています。

また、"<CK3"は実際には間に
空白をたくさん含む文字列なのですが、
これがいけないのでしょうか??
-------------------------------------
Sub test3()

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

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

For r = 1 To N
If Cells(r, 3).Value Like "〈           CK*" = True Then

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

End If

Next r

End Sub

1 hits

【6574】セルに特定の値を入力する りん 03/7/11(金) 11:42 質問
【6580】Re:セルに特定の値を入力する ひで 03/7/11(金) 14:04 回答
【6581】すいません、訂正です。 ひで 03/7/11(金) 14:47 回答
【6597】エラーがでるのですが... りん 03/7/14(月) 11:51 質問
【6598】Re:エラーがでるのですが... Jaka 03/7/14(月) 12:16 回答
【6599】Re:エラーがでるのですが... ひで 03/7/14(月) 13:33 回答
【6602】一行しか表示されません りん 03/7/14(月) 15:18 質問
【6607】Re:一行しか表示されません ひで 03/7/14(月) 17:22 回答
【6608】Re:追記 ひで 03/7/14(月) 17:26 発言
【6628】できました!! りん 03/7/15(火) 17:08 お礼

74597 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free