返回列表 上一主題 發帖

[發問] 貼入值VBA疑問

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-6-18 17:02 | 只看該作者

[發問] 貼入值VBA疑問

VBA CODE的原始來源 : https://alice57.pixnet.net/blog/post/23273559

大家好, 我在網路找到個貼入值的VBA, 修改後, 有幾個地方不明白, 再請教一下各位

1. 紫色字裡的"0 + 16"  這個是什麼意思呢?
2. 在COPY到dSht , 原始的CODE是".Range("B2:B" & y).Copy MySht.[C2]", 但貼到C欄時, 該欄位的格線都會被刪掉,  這個要怎麼改呢?
* 我是改用
dSht.Range("B2:B" & y).Copy
MySht.Range("C2:J1000").PasteSpecial Paste:=xlPasteValues
有成功, 只是想知道在原始的.Range("B2:B" & y).Copy MySht.[C2]       <---- 在這個CODE下要怎麼寫, 只貼入值就好, 不要動到格式

感謝各位!


Sub 貼櫃號()
Dim MySht As Worksheet, dSht As Worksheet, y&
  Set MySht = Sheets("出貨後")
  Set dSht = Sheets("出貨明細")
  With dSht
  MySht.Range("C2:C10000").Clear   '清除原有資料
  dSht.AutoFilterMode = False    '解除篩選模式
  y = dSht.Range("B65536").End(xlUp).Row
  If y < 2 Then MsgBox "※來源表〔Ｂ欄〕無資料！　", 0 + 16: Exit Sub
  '↑先解除篩選，再檢測資料尾列列號，若篩選中，檢測列號會有誤差
  If WorksheetFunction.CountIf(dSht.Range("A2:A" & y), "1") = 0 Then
      MsgBox "※來源表〔A欄〕無〔1〕篩選值！　", 0 + 16: Exit Sub
  End If

  '↑檢測〔1〕數
  '注意："~*"才能單選〔*〕，否則其它文字（例如：A.B.C）也會篩選進來

      dSht.Range("$A$1:$AB$1500").AutoFilter Field:=1, Criteria1:="1"
      dSht.Range("B2:B" & y).Copy
      MySht.Range("C2:J1000").PasteSpecial Paste:=xlPasteValues
     '原始的CODE是".Range("B2:B" & y).Copy MySht.[C2]", 但貼到C欄時, 該欄位的格線都會被刪掉

      dSht.AutoFilterMode = False '解除篩選模式
      MySht.AutoFilterMode = False '解除篩選模式
  End With

貼入值VBA.rar (26.9 KB)

收藏 分享

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2020-6-19 01:46 | 只看該作者
本帖最後由 n7822123 於 2020-6-19 02:01 編輯

回復 1# yc1031


需求1:
1. 紫色字裡的"0 + 16"  這個是什麼意思呢?

Msgbox 用法的 Button參數值~~~ 16 = "顯示 Critical Message 圖示" (0可以省略)

請參考下圖微軟說明

Magbox Button參數.png
2020-6-19 01:49


可以混合搭配不同形式，比如說1+16+256+16384

256 代表第2個按鈕是預設值，直接按下Enter，就是按下第2個按鈕(以此例來說會是"取消")

以下程式你可以執行看看，就會懂了

共有16個不同的Msgbox 視窗


Sub PlayMsgbox()
Arr = Array(1, 2, 3, 4)
Brr = Array(16, 32, 48, 64)
For A = 0 To UBound(Arr): For B = 0 To UBound(Brr)
  n = n + 1
  MsgBox "Test-" & n, Arr(A) + Brr(B)
Next: Next
End Sub

也許下面的程式你比較看得懂，兩者是一樣的

Sub PlayMsgbox2()
n = n + 1: MsgBox "Test-" & n, 1 + 16
n = n + 1: MsgBox "Test-" & n, 2 + 16
n = n + 1: MsgBox "Test-" & n, 3 + 16
n = n + 1: MsgBox "Test-" & n, 4 + 16

n = n + 1: MsgBox "Test-" & n, 1 + 32
n = n + 1: MsgBox "Test-" & n, 2 + 32
n = n + 1: MsgBox "Test-" & n, 3 + 32
n = n + 1: MsgBox "Test-" & n, 4 + 32

n = n + 1: MsgBox "Test-" & n, 1 + 48
n = n + 1: MsgBox "Test-" & n, 2 + 48
n = n + 1: MsgBox "Test-" & n, 3 + 48
n = n + 1: MsgBox "Test-" & n, 4 + 48

n = n + 1: MsgBox "Test-" & n, 1 + 64
n = n + 1: MsgBox "Test-" & n, 2 + 64
n = n + 1: MsgBox "Test-" & n, 3 + 64
n = n + 1: MsgBox "Test-" & n, 4 + 64
End Sub


需求2:
2. 在COPY到dSht , 原始的CODE是".Range("B2:B" & y).Copy MySht.[C2]", 但貼到C欄時, 該欄位的格線都會被刪掉,  這個要怎麼改呢?
* 我是改用
dSht.Range("B2:B" & y).Copy
MySht.Range("C2:J1000").PasteSpecial Paste:=xlPasteValues
有成功, 只是想知道在原始的.Range("B2:B" & y).Copy MySht.[C2]       <---- 在這個CODE下要怎麼寫, 只貼入值就好, 不要動到格式

可以改成

MySht.[C2].Resize(y - 1) =.Range("B2:B" & y).Value
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題