請修改程式

各位前輩你們好!
   Sub Ex()
   With Sheets("學習")
   .[A65536].End(xlUp)(1, 1).Copy .[A65536].End(xlUp)(2, 1)
   .[A65536].End(xlUp)(1, 1).Offset(-1, 0) = [A65536].End(xlUp)(1, 1)
   .[B65536].End(xlUp)(1, 1).Copy .[B65536].End(xlUp)(2, 1)
   .[B65536].End(xlUp)(1, 1).Offset(-1, 0) = [B65536].End(xlUp)(1, 1)
   .[C65536].End(xlUp)(1, 1).Copy .[C65536].End(xlUp)(2, 1)
   .[C65536].End(xlUp)(1, 1).Offset(-1, 0) = [C65536].End(xlUp)(1, 1)
         '...等等
End With
End Sub
   問題如附檔說明
   請知道的前輩,不吝賜教謝謝再三!!

LeoV69.rar (10.07 KB)

樓主熱帖

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2012-11-16 21:58 | 顯示全部帖子

回復 3# GBKEE
stillfish00  前輩!程式OK!謝謝再三!!
良師!謝謝!!果然技高一籌
      再請教2個問題
               問題一
      當A1顯示支出123
      按鈕 B1=123(值)
      如果A1顯示支出456789
      按鈕 B1=456789(值)
      也就是說B1只取A1的數字部份
               問題二
         ZZ = Application.InputBox("請選取# 支出＝(H欄) #", "支出費用", "=INT(/2)", Type:=0)
If [E1] = "" Then
[E1] = ZZ
Else
If ZZ <> False Then [E1] = ZZ & "+" & Mid([E1].FormulaR1C1, 2)
If ZZ = "" Or ZZ = False Then Exit Sub
End If
[E1]=INT(Sheet4!$H$3/2)+INT(Sheet1!$H$3/2)
[E1]的型態是所需
但如果將對話框預設"=INT(/2)"去掉改成
ZZ = Application.InputBox("請選取# 支出＝(H欄) #", "支出費用", Type:=0)
執行程式[E1]的型態也是[E1]=INT(Sheet4!$H$3/2)+INT(Sheet1!$H$3/2)
小弟這樣子改不行耶!
ZZ = Application.InputBox("請選取# 支出＝(H欄) #", "支出費用", Type:=0)
If [E1] = "" Then
[E1] = "=" & "int" & "(" & ZZ & "/2)"
Else
If ZZ <> False Then [E1] = "=" & "int" & "(" & ZZ & "/2)" & "+" & Mid([E1].FormulaR1C1, 2)
If ZZ = "" Or ZZ = False Then Cancel = True
End If
請問要如何修改才能完成
以上2個問題,請知道的前輩,不吝賜教謝謝再三!!

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2012-11-17 21:53 | 顯示全部帖子

回復 5# stillfish00
前輩!程式OK!謝謝再三!!辛苦囉!

TOP