[發問] 是否有大大可以幫我改表單裡的VBA

主要是跟檔案內右上角的出貨表單跟導入產品規格的按鈕大同小異

只是導入產品規格一定要框選產品編號才可以有作用是否有辦法改成框選哪一欄都可以
而且導入產品規格到sheet2時產品編號跟產品名稱如果只有數字就會無效不知到位甚麼

小弟VBA不大行是否有大大可幫小弟改右上角的產品紀錄測試紀錄異常紀錄的VBA
大致上也跟導入產品規格一樣框選範圍自動將範圍內指定欄位找尋最後一筆資料的下一列以值的方式貼上另外一個工作表
另外三個檔案希望貼上的欄位有KEY幾筆資料
只是因為這三個檔案每個月都會開一個新的是否有辦法做一個指定路徑的方式在表單中或者像檔案中再參照欄裡KEY入路徑就會指定到這個檔案
拜託大大感恩

ND生產區.rar (30.59 KB)

樓主熱帖

a31075ha

中學生 Rank: 2

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

2^#

發表於 2014-3-4 09:34 | 只看該作者

回復 1# a31075ha

Option Explicit
Dim Show_File As Object
Sub 加入檔案()
Dim I As Integer
Set Show_File = Application.FileDialog(msoFileDialogOpen)
With Show_File
      .InitialFileName = "D:\*.xls"  '指定 xls檔
      .AllowMultiSelect = True
      .Show
      If .SelectedItems.Count > 0 Then
         For I = 1 To .SelectedItems.Count
         Cells(I, 2) = .SelectedItems(I)
      Next
      End If
End With
End Sub
Sub 執行()
Dim I As Integer, Sh As Worksheet, Rng As Range
Set Sh = Workbooks("貼上.xlsm").Sheets(1)
With Show_File
      If .SelectedItems.Count > 0 Then
         For I = 1 To .SelectedItems.Count
            Set Rng = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Offset(1)  'A欄最後有資料列的下一列
            With Workbooks.Open(.SelectedItems(I))
                  .Sheets(1).Range("A1:C6").Copy Rng
                  .Close 0
            End With
         Next
      End If
End With
Sh.Parent.Save ' 貼上.xlsm  存檔
End Sub

類似像這一段這樣只是貼上的方是希望跟導入產品規格的方式一樣只有框選範圍內的指定欄位貼上

TOP

a31075ha