返回列表 上一主題 發帖

[發問] 複製儲存格範圍

caichen3

帖子
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)

123.rar (25.87 KB)

收藏 分享
寶寶

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-11-26 
2#
發表於 2012-5-11 19:05 | 只看該作者
是因Sheet2.Range("E3")的格式吧

TOP

caichen3

帖子
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

簡化一下程式
  1. Private Sub CommandButton8_Click()
  2. With Sheet2
  3.   LC = .[IV3].End(xlToLeft).Column
  4.   If LC > 7 Then .Range(.Cells(3, 5), .Cells(4, LC - 3)).Delete Shift:=xlToLeft
  5. End With
  6. With Sheet1
  7.   LC = .[IV2].End(xlToLeft).Column
  8.   .Range(.Cells(1, 5), .Cells(2, LC)).Copy
  9.   Sheet2.Range("E3:E4").Insert Shift:=xlToRight
  10. End With
  11. End Sub
複製代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 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

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題