Excel VBA質問箱 IV

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

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


39870 / 76732 ←次へ | 前へ→

【41966】Re:自動で番号を振るには(ツリー形式の階層番号)
発言  かみちゃん  - 06/8/27(日) 10:58 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>早速ためしてみます。
>
>さて、例が足りないとこ事でしたので、もう少し記入してみます。
>やりたい事:マクロでツリー形式の番号を振りたい。
>      イメージはフォルダの中にフォルダがありその中にファイルが
>      あるみたいなイメージです。
>条件:A列に1、2、3、…の数字が入っており規則に従いB列に番号を振る

[#41947]のichinoseさんが提示されたコードのうちmainプロシージャを一部修正さ
せていただくと以下のような感じのもので動くようです。
確認してみてください。

Sub main()
  Dim g0 As Long
  Dim ans As Variant
  Dim rng As Range
  With ActiveSheet
    .Range("a:a").NumberFormatLocal = "G/標準"
    .Range("b:b").NumberFormatLocal = "@"
'    .Range("a1:a9").Value = _
       Application.Transpose(Array(1, 2, "", "", 2, 3, "", 1, 2))
    .Range("b:b").Value = ""
    g0 = 1
'    Call open_nestnum(.Range("a1:a9"))
    Call open_nestnum(.Range("A1", .Cells(.Rows.Count, 1).End(xlUp)))
    ans = get_nestnum
    Do Until ans = ""
'     .Range("a1:a9").Cells(g0).Offset(0, 1).Value = ans
     .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Cells(g0).Offset(0, 1).Value = ans
     g0 = g0 + 1
     ans = get_nestnum
     Loop
    Call close_nestnum
    MsgBox "例1 確認してください"
'    .Range("a1:a10").Value = _
'       Application.Transpose(Array(1, 2, "", "", 1, 2, "", "", 2, ""))
'    .Range("b:b").Value = ""
'    g0 = 1
'    Call open_nestnum(.Range("a1:a10"))
'    ans = get_nestnum
'    Do Until ans = ""
'     .Range("a1:a10").Cells(g0).Offset(0, 1).Value = ans
'     g0 = g0 + 1
'     ans = get_nestnum
'     Loop
'    Call close_nestnum
'    MsgBox "例2 確認してください"
  End With
End Sub

0 hits

【41903】自動で番号を振るには d46 06/8/25(金) 18:01 質問
【41908】Re:自動で番号を振るには かみちゃん 06/8/25(金) 19:51 発言
【41947】Re:自動で番号を振るには ichinose 06/8/26(土) 16:51 発言
【41964】補足です。 d46 06/8/27(日) 10:35 発言
【41966】Re:自動で番号を振るには(ツリー形式の階... かみちゃん 06/8/27(日) 10:58 発言
【41976】Re:補足です。 [名前なし] 06/8/27(日) 17:09 発言
【41978】Re:補足です。 d46 06/8/27(日) 20:18 発言
【41979】Re:自動で番号を振るには(ツリー形式の階... かみちゃん 06/8/27(日) 20:27 発言
【41980】Re:自動で番号を振るには(ツリー形式の階... ichinose 06/8/27(日) 21:34 発言
【41985】すごいです!! d46 06/8/28(月) 9:28 お礼
【41988】再度質問 d46 06/8/28(月) 13:06 質問
【41995】Re:再度質問 d46 06/8/28(月) 16:14 発言
【42002】Re:再度質問 ichinose 06/8/28(月) 20:03 発言
【42007】[41980]の返答です。 d46 06/8/29(火) 8:39 発言
【42012】Re:[41980]の返答です。 ichinose 06/8/29(火) 9:49 発言
【42013】Re:[41980]の返答です。 d46 06/8/29(火) 10:14 お礼

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