帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-5-11 14:51 | 只看該作者

[發問] 複製儲存格範圍

請教大大
希望按下"確定"後將sheet1.range("E1:N2").value複製於sheet2.range("E3:N4")
以下是我的程式碼

Private Sub CommandButton8_Click()
Dim b As Integer
Dim k As Integer
Dim c As Integer
Dim d As Integer

henji = MsgBox("確定輸入 " & Range("A1").Value & "個製程需求?", Buttons:=vbYesNo + vbQuestion, Title:="需求數確認")

b = Range("A2").Value
k = Sheet2.Range("A5").Value

If (henji = 6) Then

c = b
If b > k Then
   b = b - k
   For i = 1 To b
      Sheet2.Columns("F").Insert
   Next

ElseIf b < k Then
   b = k - b
   For i = 1 To b
         Sheet2.Columns("F").Delete
   Next
End If
Sheet2.Range("A5").Value = c


d = 4 + b
Range(Cells(1, 5), Cells(2, d)).Copy Sheet2.Range("E3")

End If
End Sub
文色字體程式在新增一行後會出問題，請求大大幫忙看看哪裡出錯了？？

123.rar (25.54 KB)

123.rar (25.87 KB)

樓主熱帖

寶寶

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-12-24

2^#

發表於 2012-5-11 19:05 | 只看該作者

是因Sheet2.Range("E3")的格式吧

TOP

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-5-11 23:54 | 只看該作者

.Copy的用法能將儲存格合併嗎？？

寶寶

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-5-12 16:52 | 只看該作者

回復 3# caichen3

簡化一下程式

Private Sub CommandButton8_Click()
With Sheet2
LC = .[IV3].End(xlToLeft).Column
If LC > 7 Then .Range(.Cells(3, 5), .Cells(4, LC - 3)).Delete Shift:=xlToLeft
End With
With Sheet1
LC = .[IV2].End(xlToLeft).Column
.Range(.Cells(1, 5), .Cells(2, LC)).Copy
Sheet2.Range("E3:E4").Insert Shift:=xlToRight
End With
End Sub

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2012-5-16 11:12 | 只看該作者

回復 3# caichen3
問題在 b = Range("A2").Value
若Range("A2").Value =""或是0時~ 您執行的時候就會錯誤
   henji = MsgBox("確定輸入 " & Range("A1").Value & "個製程需求?", Buttons:=vbYesNo + vbQuestion, Title:="需求數確認")
b = Range("A2").Value
這兩行調一下位置~ 如下
b = Range("A2").Value
IF b<0  THEN
      MsgBox "請重新確定您的製程需求數"
      Exit Sub
ELSE
      henji = MsgBox("確定輸入 " & Range("A1").Value & "個製程需求?", Buttons:=vbYesNo + vbQuestion, Title:="需求數確認")
   END IF

學習才能提升自己

TOP