[發問] 無交集數值的工作表

附件.rar (6.07 KB)
Dim Number, INnum()

If Number = "1-49" Then
      ReDim Preserve INnum(48)
      For i = 0 To 48
         INnum(i) = i + 1
      Next
ElseIf Number = 0 Then
      ReDim Preserve INnum(6)
      ReNumber = 1
ElseIf Number = "" Then
      ReDim Preserve INnum(0)
      ReNumber = 0
End If
藍色部分的程式碼~只能產生如說明檔的J12：P12和R12：X12有>0個的交集數字(01~49)的工作表~
EX：Sheet1有交集數字 = 49    Sheet2有交集數字 = 16和23

如果當J12：P12和R12：X12沒有任何1個交集數字時，其工作表也能產生~
EX：Sheet3和Sheet4
詳如附件。

請問：如果想不受 If Number = "1-49" Then 的影響(限制)時，藍色部分的程式碼應如何修正？
謝謝！

樓主熱帖

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-7-17 02:10 | 只看該作者

回復 1# papaya

你的敘述有點模糊
大致上先討論一下
如果我沒猜錯實際上是
if Number = "1-49"  then 寫錯所以永遠這行不會執行
這行的意思是
如果Number 的文字並非 ("1-49"  這個4個字元字串)  的情況下就是false
那麼根據目前的狀況來說
表中並沒有"1-49"的國文字串

正確寫法應該要改成
if --Number >= 1 and --Number <= 49 then
這樣才是判斷當前數字是否介於1~49的數字

if --Number >= 1 and --Number <= 49 then
      ReDim Preserve INnum(48)
      For i = 0 To 48
         INnum(i) = i + 1
      Next
ElseIf Number = 0 Then
      ReDim Preserve INnum(6)
      ReNumber = 1
ElseIf Number = "" Then
      ReDim Preserve INnum(0)
      ReNumber = 0
End If

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

3^#

發表於 2021-7-17 03:52 | 只看該作者

本帖最後由 papaya 於 2021-7-17 04:07 編輯

回復 2# singo1232001
不好意思，沒說清楚~這是我在網上節錄的~

If Number = "1-49" Then
      ReDim Preserve INnum(48)
      For i = 0 To 48
         INnum(i) = i + 1
      Next
ElseIf Number = 0 Then
      ReDim Preserve INnum(6)
      ReNumber = 1 '列8

Else
      m1 = 0
      sta = 1
      For i = 2 To Len(Number) + 1
         If Mid(Number, i, 1) = "," Or i > Len(Number) Then
            ReDim Preserve INnum(m1)
            INnum(m1) = --Mid(Number, sta, i - sta)
            sta = i + 1
            m1 = m1 + 1
         End If
         If Mid(Number, i, 1) = "-" Then
            ReDim Preserve INnum(m1)
            INnum(m1) = --Mid(Number, sta, i - sta)
            m1 = m1 + 1
            For j = i + 1 To i + 3
                  If Mid(Number, j, 1) = "," Or j > Len(Number) Then
                  For k = Mid(Number, sta, i - sta) + 1 To Mid(Number, i + 1, j - (i + 1))
                  ReDim Preserve INnum(m1)
                  INnum(m1) = k
                  m1 = m1 + 1
                  Next
                  sta = j + 1
                  i = j
                  Exit For
                  End If
            Next

            If j > Len(Number) Then Exit For
         End If

      Next
End If
以上的程式碼，執行一切正常~都是能產生有01~49之各=1個交集號碼的工作表。

因為我想包括沒有(即=0個)交集的工作表也能全部產生，所以才在列9插入
ElseIf Number = "" Then
      ReDim Preserve INnum(0)
      ReNumber = 0
只是測試後，還是只會產生有1~49之各>=1個交集號碼的工作表。

因此上論壇請教 : 如何修正我自行插入的程式碼 ?
謝謝!

TOP

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

4^#

發表於 2021-7-17 07:33 | 只看該作者

本帖最後由 papaya 於 2021-7-17 07:37 編輯

回復 2# singo1232001

包括沒有(即=0個)交集修正為包括沒有(即>=0個)交集號碼

不過，仔細研究節錄的原程式碼 :

If Number = "1-49" Then
      ReDimPreserve INnum(48)
      For i = 0 To48
         INnum(i) = i + 1
      Next
是要抓有1~49中的任=1個交集號碼之工作表