|
▼nakataka さん:
▼kanabun さん:
横から失礼します。
作っている間に書き込みがあったので少し不足、余分がありますが
多分対応できると思います。確認してみてください。
罫線部分は select部を変更して下さい。
Sub test()
Dim i As Long, j As Long
Dim RS As Long, RE As Long
Dim TC As Integer 'データのある列数
j = 1
TC = 1
For i = 2 To Cells(65536, TC).End(xlUp).Row
If Cells(i, TC).Value = 1 Then
If RS = 0 Then
RS = i
Else
RE = i - 1
RowS(RS & ":" & RE).Select
MsgBox "範囲 " & j & " です"
j = j + 1
RS = i
RE = 0
End If
ElseIf Cells(i, TC).Value = 10 Then
If RS = 0 Then
MsgBox "範囲の始まりが不明です"
Else
RE = i
RowS(RS & ":" & RE).Select
MsgBox "範囲 " & j & " です"
j = j + 1
RS = 0
RE = 0
End If
ElseIf RS > 0 Then
If Cells(i, TC).Value < Cells(i - 1, TC).Value Or _
Cells(i, TC).Value > 9 Then
RE = i - 1
RowS(RS & ":" & RE).Select
MsgBox "範囲 " & j & " です"
j = j + 1
RS = 0
RE = 0
End If
End If
Next i
End Sub
>具体的に
>
> 1 いちご
> 2 みかん
> :
> :
> 8 ぶるーべりー
> 9 めろん
> 10 いちじく
> 1 にんじん
> 2 かぼちゃ
> :
> :
> 8 ほうれん草
> 9 たまねぎ
>
>
>のように 順番に入ってます。
>それを
>
> ──────────
> │1 いちご │
> │2 みかん │
> │: │
> │: │
> │8 ぶるーべりー │
> │9 めろん │
> │10 いちじく │
> ──────────
>このように、罫線を引くプログラムを作成していたのですが、
>1〜9までしがない群もあるので、それがうまく認識して1〜9に罫線をひけなかったので、質問しました。
|
|