Excel VBA質問箱 IV

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

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


39843 / 76732 ←次へ | 前へ→

【41995】Re:再度質問
発言  d46  - 06/8/28(月) 16:14 -

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

[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】自動で番号を振るには 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 お礼

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