返回列表 上一主題 發帖

請修改程式

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2012-11-16 09:38 | 顯示全部帖子
回復 1# myleoyes
  1. Sub Ex()
  2.     With Sheets("學習").[A65535].End(xlUp).Resize(1, 15)
  3.         .Copy
  4.         .Offset(1).PasteSpecial Paste:=xlPasteFormulas
  5.         .Offset(1).PasteSpecial Paste:=xlPasteFormats
  6.         .PasteSpecial Paste:=xlPasteValues
  7.     End With
  8. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-11-17 07:54 | 顯示全部帖子
回復 4# myleoyes
1.   
    mid取出數字部分再轉數字型態
    =--Mid(A1,3,Len(A1)-2)
2.
    你寫的  If ZZ <> False Then [E1] = "=" & "int" & "(" & ZZ & "/2)" & "+" & Mid([E1].FormulaR1C1, 2)
    式中的ZZ含有等號 , 改 Right(ZZ , Len(ZZ)-1) 看看

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題