返回列表 上一主題 發帖

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

alexliou

帖子
51 
主題
0 
精華
0 
積分
81 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-3-9 
最後登錄
2013-1-9 
1# 跳轉到 »
發表於 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

帖子
51 
主題
0 
精華
0 
積分
81 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-3-9 
最後登錄
2013-1-9 
2#
發表於 2012-12-21 17:49 | 顯示全部帖子
把ksj 除以10, 無條件進位到整數即可
程式碼可以如下:
Dim  n  as Integer      'n代表區域號碼
For ksj ...
alexliou 發表於 2012-12-21 17:44


應該是roundup才對
Alex

TOP

alexliou

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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題