□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| どういうVBAにしたらよいのか、アドバイスおねがしますⅡ | |
|---|---|
[195231] どういうVBAにしたらよいのか、アドバイスおねがしますⅡ- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/09/08(09:21)) □U R L/ OK様
ちょっと勉強で教えて頂きたいです。
簡易的に作成したシートで行った時は正常に動作したのですが、(office365)
実際使用するシートで行ったところ、「m = Application.XMatch("〇", r, 0, -1)」でエラー
になります。
すみませんが、ここに書かれている意味を教えて頂きたいです。
Sub test()
Dim r As Range
Dim m
Set r = Range("L26:L437")
m = Application.XMatch("〇", r, 0, -1)
If IsNumeric(m) Then
r.Resize(m).Value = "〇"
Else
MsgBox "すべて未入力です"
End If
End Sub
次のVBAですと途中迄は〇になりますが、データーが入っている最終行まで
ではないです。
Sub test2()
Dim r As Range
Dim n As Long
Set r = Range("L26:L500")
n = Application.CountIf(r, "〇")
If n > 0 Then
r.Resize(n).Value = "〇"
Else
MsgBox "未入力です"
End If
End Sub
宜しくご指導お願い致します。
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195232] Re[1]: どういうVBAにしたらよいのか、アドバイスおねがしますⅡ- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/09/08(12:27)) □U R L/ XMATCHで、逆方向から、"〇"の位置を検索しています
XMATCHが使えないバージョンということなら
n = InStrRev(WorksheetFunction.TextJoin("", False, r), "〇")
If n > 0 Then
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195233] Re[2]: どういうVBAにしたらよいのか、アドバイスおねがしますⅡ- ■  / 記事引用/メール受信=OFF■
□投稿者/ ちわわ -(2022/09/08(14:33)) □U R L/ マナ様 ありがとうございます。 逆方向から〇を探すって方法なのですね。 思いもついきませんでした。 勉強になります。 | |