質問一覧

  1. ワイルドカードの使い方について教えて下さい。 K列に商品ごとの合計...

    合計を太字で表示させたいと思います。 AAAAA の合計 BBBBB の合計 CCCC の合計 のように商品名の後ろに " の 合計"となります。 Dim rw As Long For rw = 2 To Range("K65536").End(xlUp).Row If Range("K" ...
    解決済み - 更新日時:2017/08/24 14:18:48 - 回答数:1 - 閲覧数:4
  2. VBAで、ワイルドカードを利用して条件判定をしようと考えています。 ...

    セルA1 グリーン セルB1 ディープグリーン Sub 判定() Dim a As String a = Range("A1") If Range("B1").Value Like "* a *" Then MsgBox "正解" Else MsgBox "不正解" End If End Sub これだと、a を含んでいる...
    解決済み - 更新日時:2017/01/21 14:43:21 - 回答数:1 - 閲覧数:6
  3. vbaでこのようにセルの合計をメッセージボックスで表示するプログラム...

    If Range("B7").Value Like "日" Then Range...(Selection) End If 上の一部であれば、B7、...
    解決済み - 更新日時:2018/07/28 20:27:40 - 回答数:2 - 閲覧数:31
  4. マクロを使って、B列の"AB"を含む行を削除したいです。 ただ、"EAB"...

    ...() Dim i As Long For i = Range("A1")...(i, "B") If _ .Value Like "*AB*" Then .EntireRow.Delete End If End...
    解決済み - 更新日時:2016/03/28 16:52:09 - 回答数:2 - 閲覧数:29
  5. マクロを一纏めにお願いします。 Private Sub Worksheet_Change(ByVal...

    Worksheet_Change(ByVal Target As Range) If Target.Column = 35 Then If Cells(Target.Row, "C").Value Like "*〇〇*" Then If Cells(Target.Row, "C").Value Like "*△△*" Then If Cells(Target.Row, "C").Va...
    解決済み - 更新日時:2016/05/27 13:17:10 - 回答数:1 - 閲覧数:5
  6. マクロについて。Like演算子がエラーになります。 いつもお世話になっ...

    世話になっています。 先ほども質問したものですが、、、 あれから貼り付けは問題なくできました。 そして、コピー先シート名が【元】から始まる場合は元の書式で貼り付け。 それ以外は値で貼り付けなのですが、 ...
    解決済み - 更新日時:2017/06/26 14:41:02 - 回答数:1 - 閲覧数:4
  7. Excelの関数かマクロで セルの文字列の中に、。とかwがあれば 文字の...

    一例です。 Sub test() With Range("A1") If .Value Like "*。*" Or .Value Like "*w*" Then .Font.ColorIndex = 3 Else .Font.ColorIndex...
    解決済み - 更新日時:2014/08/21 15:08:33 - 回答数:1 - 閲覧数:0
  8. エクセルVBA メッセージボックス エラー表示に関して。 【やりたいこ...

    ... どなたかご教示願います。 If .Range("B2").Value Like "*サンプル*" Then MsgBox "サンプルが含まれておりません", vbCritical Exit Sub End If よろしくお願いいたします。...
    解決済み - 更新日時:2018/04/23 17:11:19 - 回答数:3 - 閲覧数:11
  9. 例えばB列に●文字があった場合行のB~Dを「黄色」に ・●部分の文字...

    文字を含まない行は「塗りつぶしなし」になるようにしています。 Sub 色付け() Dim c Dim r As Range For Each r In Range("B1", Cells(Rows.count, 1).End(xlUp)) If InStr(r.Value, "●") Then c = 6 Else c =...
    解決済み - 更新日時:2018/10/25 22:46:54 - 回答数:2 - 閲覧数:24
  10. マクロVBAで以下の命令を行う方法を教えてください。 たとえば 行は10...

    ...("C" & Rows.Count).End(xlUp).Row If Range("C" & i).Value Like "*靴*" Then Range...
    解決済み - 更新日時:2015/10/29 01:19:17 - 回答数:1 - 閲覧数:27
探している情報が見つからないときは「Yahoo!知恵袋」で質問してみよう。
「Yahoo!知恵袋」で質問してみよう

検索対象

Q&A(690)

表示順序