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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-12-21 16:46 | 只看該作者

[發問] [請教] 關於 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

複製代碼

樓主熱帖

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

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

  少看=只看不做也枉然

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-12-21 17:37 | 只看該作者

本帖最後由 GBKEE 於 2012-12-22 08:45 編輯

回復 1# mark15jill

Sub Ex()
For ksj = 11 To nn Step 10
For x = -1 To 8
btuarray(usx1, usy1).Text = "第 " & Int(ksj / 10) + 1 & " 區域第 " & ksj + x & " 區塊"
Next
Next
End Sub

複製代碼

TOP

alexliou

中學生 Rank: 2

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

3^#

發表於 2012-12-21 17:44 | 只看該作者

把ksj 除以10, 無條件進位到整數即可
程式碼可以如下:
Dim  n  as Integer    'n代表區域號碼
For ksj = 1 To nn
  n = WorkSheetFunction.Ruundup(ksj,0)
  btuarray(usx1, usy1).Text = "第" & cstr(n)  &  "區域" & "  第" & " " & ksj - 1 & " " & "區塊"
Next

Alex

TOP

alexliou

中學生 Rank: 2

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

4^#

發表於 2012-12-21 17:49 | 只看該作者

把ksj 除以10, 無條件進位到整數即可
程式碼可以如下:
Dim n as Integer 'n代表區域號碼
For ksj ...
alexliou 發表於 2012-12-21 17:44

應該是roundup才對

Alex

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

5^#

發表於 2012-12-22 08:46 | 只看該作者

回復 2# GBKEE

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

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

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

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

  少看=只看不做也枉然

TOP

alexliou

中學生 Rank: 2

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

6^#

發表於 2012-12-22 09:02 | 只看該作者

回復 5# mark15jill
N 並不是要放在Sheet內
"WorkSheetFunction"這個字並非指N要放在Sheet內
它只是要引用 RoundUp 這個無條件進入的函數
就像在VBA中要引用Max這個函數一樣
因為Max 和RoundUp都不是VBA的內建函數
而是屬於Excel 工作表的函數

另外, 我猜測你想要把66顯示為"第7 區域第6 區塊"
程式碼應為
For ksj = 1 To nn
n = WorkSheetFunction.Roundup(ksj/10,0)
btuarray(usx1, usy1).Text = "第" & cstr(n) & " 區域" & " 第" & " " & (ksj- n *10) & " 區塊"
Next

Alex

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-12-22 10:05 | 只看該作者

回復 5# mark15jill
For ksj = 1 To nn
      Select Case ksj
         Case 1 To 10    '---> 第 1 區域
         btuarray(usx1, usy1).Text = "第 1 區域" & "  第" & " " & ksj - 1 & " " & "區塊"-> ksj - 1 & "區塊"
         Case 21 To 20 '---> 第 2 區域
         '
         '
Next

Sub Ex()
For ksj = 1 To nn Step 10
For x = -1 To 8
btuarray(usx1, usy1).Text = "第 " & Int(ksj / 10) + 1 & " 區域第 " & ksj + x & " 區塊"
Next
Next
End Sub

複製代碼

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

8^#

發表於 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