Excel VBA質問箱 IV

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

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


62289 / 76738 ←次へ | 前へ→

【19056】Re:非表示部分の連番の付け方
回答  bykin  - 04/10/20(水) 12:24 -

引用なし
パスワード
   こんにちわ。

>最終的にはVBAに反映させたく思います。
ってことやけど、VBA使わん方法考えてみました(^^;;

1.A1を選択した状態から、メニューの[挿入]-[名前]-[定義]で、
  名前:CellHeight
  参照範囲:=GET.CELL(17,A1)
  と設定する。

2.A2に =IF(CellHeight>0,1,0) と入れる。

3.A3に =IF(CellHeight>0,A2+1,A2) と入れ、下までコピーする。

行を削除する可能性があるんやったら、A3〜の数式を
=IF(CellHeight>0,OFFSET(A3,-1,0)+1,OFFSET(A3,-1,0))
としてください。

参考までに、これをVBAに応用すると・・・(名前の定義は事前に設定しておく)

Sub test()
  Dim LastRow As Long
  With ActiveSheet
    LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    Select Case LastRow
      Case 2
        .Range("A2").Value = 1
      Case Is > 2
        .Range("A2").Formula = "=IF(CellHeight>0,1,0)"
        .Range(.Cells(3, 1), .Cells(LastRow, 1)).Formula = "=IF(CellHeight>0,A2+1,A2)"
        With .Range(.Cells(2, 1), .Cells(LastRow, 1))
          .Value = .Value
        End With
    End Select
  End With
End Sub

ま、こんな方法もあるってことで・・・
ほな。

0 hits

【19029】非表示部分の連番の付け方 YN61 04/10/19(火) 19:55 質問
【19033】Re:非表示部分の連番の付け方 ichinose 04/10/19(火) 23:14 回答
【19072】Re:非表示部分の連番の付け方 YN61 04/10/20(水) 20:33 お礼
【19039】Re:非表示部分の連番の付け方 Asaki 04/10/19(火) 23:59 回答
【19071】Re:非表示部分の連番の付け方 YN61 04/10/20(水) 20:30 質問
【19122】Re:非表示部分の連番の付け方 Asaki 04/10/22(金) 10:10 回答
【19133】Re:非表示部分の連番の付け方 bykin 04/10/22(金) 22:35 発言
【19148】Re:非表示部分の連番の付け方 Asaki 04/10/23(土) 11:40 発言
【19153】Re:非表示部分の連番の付け方 bykin 04/10/23(土) 19:53 発言
【19195】Re:非表示部分の連番の付け方 YN61 04/10/24(日) 23:11 お礼
【19313】Re:非表示部分の連番の付け方 YN61 04/10/28(木) 6:38 質問
【19347】Re:非表示部分の連番の付け方 bykin 04/10/28(木) 20:04 回答
【19505】Re:非表示部分の連番の付け方 YN61 04/11/5(金) 21:11 お礼
【19056】Re:非表示部分の連番の付け方 bykin 04/10/20(水) 12:24 回答
【19073】Re:非表示部分の連番の付け方 YN61 04/10/20(水) 20:37 お礼

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