[發問] [請教] 關於 Select Case ... End Select 程式簡化問題

[問題]
因為陣列內判斷元件的序號值(ID Code)是處於第N區域 (N為10個1組)
但是用以下程式碼，區域少是可行，一旦區域多，整個程式碼行數就會暴增
有試著在陣列 n=1 .... n=n+1 當中判斷
但是可能是小弟功夫不到家，判斷之後，反而整區塊的 Text 不顯示(應該是說讀不到)
不知道是否有比較簡易的判斷可以處理這種情況？

原程式碼如下

For ksj = 1 To nn
Select Case ksj
Case 1 To 10
btuarray(usx1, usy1).Text = "第 1 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 11 To 20
btuarray(usx1, usy1).Text = "第 2 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 21 To 30
btuarray(usx1, usy1).Text = "第 3 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 31 To 40
btuarray(usx1, usy1).Text = "第 4 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 41 To 50
btuarray(usx1, usy1).Text = "第 5 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 51 To 60
btuarray(usx1, usy1).Text = "第 6 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 61 To 70
btuarray(usx1, usy1).Text = "第 7 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 71 To 80
btuarray(usx1, usy1).Text = "第 8 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 81 To 90
btuarray(usx1, usy1).Text = "第 9 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 91 To 100
btuarray(usx1, usy1).Text = "第 10 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 101 To 110
btuarray(usx1, usy1).Text = "第 11 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 111 To 120
btuarray(usx1, usy1).Text = "第 12 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
Case 121 To 130
btuarray(usx1, usy1).Text = "第 13 區域" & " 第" & " " & ksj - 1 & " " & "區塊"
End Select
Next

複製代碼

樓主熱帖

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-12-22 08:46 | 顯示全部帖子

回復 2# GBKEE

[ To GBKEE  大大]
會變成  1-10 區塊消失
而 11 - 130 區塊  會以10個為一組的方式固定數值(如 11 ~ 20 區塊會變成  第二區域第20區塊 )...
請問這是甚麼原因?

      [ To alexliou 大大]
   您的方法似乎是將變數(N) 設定至 sheet內，但這似乎不是小弟想要的，感謝您教導

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2012-12-22 10:14 | 顯示全部帖子

本帖最後由 mark15jill 於 2012-12-22 10:18 編輯

[ To GBKEE  大大]
               已解決...
               小弟剛剛重新編寫，發現疏忽掉一個點... "nn"
                  For ksj = 1 To nn Step 10
                     .Text = "第 " & Int(ksj / 10) + 1 & " 區域  第  " & nn & " 區塊"
                  Next
               變成單循環+nn 然後區域用大大您所教導的整數判斷..
               因之前問題是出在區塊可以正常判讀，區域不行..
               小弟將區域的部分替換，區塊仍不更改，問題就解決了。


      [ To alexliou 大大]
               抱歉，小弟才疏學淺，將大大您所教導的誤認為其他方面。

感謝兩位大大的指教..

呈現出來的結果會變成..
1-10  第一區域的第1~10區塊
11-20  第二區域的第1~10區塊

以此類推..

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP