戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ

■ 24時間以内に投稿された新着記事 10件です。



    [190657] Re[3]: 条件の追加
    ■■
    □投稿者/ そうくん -(2019/11/14(14:35))
    □U R L/

        If TextBox2.Value <> "" Then
           Cells(x, "M").Value = TextBox2.Value
           Cells(x, "L").Value = "○"
        If TextBox1.Value Like "*3.2t*" Then
           Cells(x, "M").Interior.Color = 255
        End If
        End If
      
      他の部分のコードを参考にしたのですが、255の部分ですが、Vbred、RGB(255, 0, 0)
      の3パターンのいずれでも同じ結果でした。
      特に気にしなくてもいいと思いますが、上記のコードに問題ないでしょうか?


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [190658] Re[4]: 条件の追加
    ■■
    □投稿者/ γ -(2019/11/14(17:44))
    □U R L/

      実際に動作するのであればOKじゃないですか?
      やったじゃないですか。
      あえて言うなら、インデントを合わせるのと、
      赤と明確に分かる方が望ましい、くらいでしょうか。




    [190659] Re[8]: スペ−スの左側を抽出したいです。
    ■■
    □投稿者/ ぴんく -(2019/11/14(22:34))
    □U R L/

      >A/BC Abcdef gyju dyhtのような文字は
      >A1からA2000迄あります、マクロなら上手く処理できるでしょうか?
      Sub Test()
          Dim c As Range, n As Long
          
          For Each c In Range("A:A").SpecialCells(xlCellTypeConstants)
              n = InStr(c.Value, " ")
              If n > 0 Then c.Offset(, 1).Value = Left(c.Value, n - 1)
          Next c
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



- Child Forum -
Edit:ゆう-G