Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39843 / 76732

←次へ　｜　前へ→


	【41995】Re:再度質問

ｄ46 - 06/8/28(月) 16:14 -


	引用なし

	パスワード

こんにちわｄ46です。

[41947]のFunction get_nestnum()の処理に

Function get_nestnum() As Variant
'配列inarray()の指示による索引的数値配置を返す
'　input なし
'　get_nestnum 索引的数値配置　""の場合、データの終わり
　　On Error Resume Next
　　Dim g0 As Long
　　Dim wk As Long
　　get_nestnum = ""

　　'初期値変更処理
　　If flg = 0 Then
　　　　f_val = f_val + 0　　'初回のみ初期値を変える005スタートの場合4にする
　　　　flg = 1　　　　　　　'初回フラグON
　　ElseIf flg = 1 Then　　　'2回目の場合
　　　　f_val = f_val - 0　　'初回プラスした値を無効にする
　　　　flg = 2　　　　　　　'2回目フラグON
　　End If

と処理を入れたら出来ましたけど、なんともかっこ悪いです。。

0 hits

▼

【41903】自動で番号を振るには ｄ46 06/8/25(金) 18:01