1234567
返回列表 上一主題 發帖

[發問] 怎麼抓取A資料表假日上班的日期與時間到B資料表的儲存格中

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
31# 跳轉到 »
發表於 2013-11-21 17:52 | 只看該作者
回復 30# prince0413
你的Excel不也是2003,沒有這問題的,上傳檔案看看.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
32#
發表於 2013-11-21 20:33 | 只看該作者
Ex1.zip.zip (50.06 KB) 回復 31# GBKEE

大大您好:
公司的電腦是2013的OFFICE
家裡的電腦是2003的OFFICE

但我幾乎都是再公司做的，存成2003的檔案是因為想說在家可能會開起來看看

所以大大的意思是不需要更改浮點數嗎?
不會EXCALL的笨蛋

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
33#
發表於 2013-11-21 20:53 | 只看該作者
回復 32# prince0413
這是2003的說明 , 請看看2013的說明有何不同再說
  1. Round 函數
  2. 傳回一個數值，該數值是按照指定的小數位元數進行四捨五入運算的結果。
  3. 單元 描述
  4. expression 必要引數。要進行四捨五入運算的數值運算式。
  5. numdecimalplaces 選擇性引數。數字值，表示進行四捨五入運算時，小數點右邊應保留的位元數。如果忽略，則 Round 函數傳回整數。
複製代碼
2003 中 Print_x As Integer 的範圍足夠了
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
34#
發表於 2013-11-21 21:08 | 只看該作者
回復 33# GBKEE

大大您好:

這是ROUND再2013的說明

我沒有您這麼專業，看不出哪裡不同之處呢

請大大指教
不會EXCALL的笨蛋

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
35#
發表於 2013-11-22 06:58 | 只看該作者
回復 34# prince0413
試試改成    If Print_x > 0 And Print_x <= 3 Then 出勤單.Parent.PrintOut 1, Round(Print_x / 2, 0)
你這圖示是: 工作表函數的說明,Application.WorksheetFunction.Round ,直接書寫 Round 是為VBA函數.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
36#
發表於 2013-11-22 19:43 | 只看該作者
錯誤.jpg 回復 35# GBKEE

大大您好
我昨日有自己嘗試再後面的值改成 0 或 -1，結果都是一樣會有錯誤呢(如上圖)

Then 出勤單.Parent.PrintOut 1, Round(Print_x / 2 , 0)
Then 出勤單.Parent.PrintOut 1, Round(Print_x / 2 , -1)

不懂為甚麼會這樣呢，因為我看說明應該是會把算出來的0.5這值四捨五入變成1就可以符合列印標準才對
怎麼會有錯誤呢
請大大指教 ~"~
不會EXCALL的笨蛋

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
37#
發表於 2013-11-22 19:56 | 只看該作者
回復 36# prince0413


Long 資料型態Long (長整數)變數係以範圍從 -2,147,483,648 到 2,147,483,647 之 32 位元 (4 個位元組) 有號數字形式儲存。Long 的型態宣告字元為 &。

你圖示錯誤指出數須是長整數的範圍
那改如下試試
  1. Dim Print_x As Long
  2. '
  3. '
  4. Parent.PrintOut 1, Round(Print_x / 2, 0)
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
38#
發表於 2013-11-22 20:01 | 只看該作者
  1.                         If 出勤 <> "" Then                                  '預防沒有 [全日,早,晚]的班別

  3.                             Print_x = IIf(Print_x = 4, 1, Print_x + 1)

  5.                             With 出勤單.Offset((Print_x - 1) * 14)          '第 Print_x 的位置

  7.                                 .Range("A1") = Rng(2).Offset(, 1)           '社員中文

  9.                                 .Range("C1") = Rng(2).Offset(, 2)           '社員編號

  11.                                 .Cells(3, 0) = DateSerial(2013, 11, 日期)   '日期

  13.                                 .Range("A3") = 出勤                         '時間

  15.                                 .Range("C3") = IIf(日期.Offset(1) = "六", "(星期六)", "(星期日)") & "沙龍營業"

  17.                             End With

  19.                            

  21.                         End If

  23.                     End If

  25.                     i = i + 1

  27.                 Loop

  29.             End If

  31.             Rng(1).Offset(, 1) = IIf(Rng(3) Is Nothing, "請檢查 : 假日出勤單 , 對照表 找不到 ", "")

  33.         End With

  35.         Set Rng(1) = Rng(1).Offset(1)    '下一位姓名

  37.     Loop

  39.    

  41. End Sub
複製代碼
回復 36# prince0413

大大您好:
謝謝您不厭其煩的幫我抓錯誤
我決定把後半段程式碼直接印出的方式改成用手動列印(如上方程式碼，只有把printout的指令拿掉)
執行巨集後在左方出勤單顯示出值，然後自行手動印出
請大大幫我看看是否有哪裡還沒有改到的
目前我執行值都有對應到

因為ROUND函數我怎麼努力看就是看不懂他錯誤是什麼意思~"~


請大大指教
不會EXCALL的笨蛋

TOP

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
39#
發表於 2013-11-22 20:19 | 只看該作者
回復 37# GBKEE

大大您好:
照您的設定也是跟剛剛一樣的錯誤呢 ...

想不透明明已經將Print_x宣告改成Long ， 下方Print_x / 2 , 0 也取整數了，怎麼還會出現錯誤呢~"~
不會EXCALL的笨蛋

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
40#
發表於 2013-11-22 20:42 | 只看該作者
回復 38# prince0413
  要改用 工作表函數 :抱歉浪費你的時間(我檔案的Print_x=2,所以一直沒找出錯誤..)
  1.   
  2.    MsgBox Round(0.5, 0)                    ' VBA 函數: 0
  3.    MsgBox Round(0.501, 0)                    ' VBA 函數: 1
  4.    MsgBox Application.WorksheetFunction.Round(1 / 2, 0)   '工作表函數 這才正確
  5.   '************************* 工作表函數 這才正確 *********************
  6.     If Print_x > 0 And Print_x <= 3 Then 出勤單.Parent.PrintOut 1, Application.Round(Print_x / 2, 0)
  7. '**********************************************************************************
  8. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 時時好心就是時時好日。
1234567
返回列表 上一主題