Public Sub ex()
Dim xlPath As Variant, Ro As Integer
Dim xlFile, arr
xlFile = Array("B.xlsx", "C.xlsx")
arr = Sheets("工作表1").Range("A1:E" & Sheets("工作表1").Cells(65535, 1).End(xlUp).Row)

(繼續閱讀...)

minyeh187 發表在 痞客邦 留言(2) 人氣()

  • 個人分類：
▲top
%E9%80%B2%E8%B2%A8%E8%B3%87%E6%96%99%E8%A1%A8.png

假設資料表如下，分別為進貨和銷貨

再分別製作2張查詢表單，分別為進貨量和銷貨量，進貨量製作方法如下2圖：

銷貨量製作方法如進貨量

(繼續閱讀...)

minyeh187 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：
▲top

如何由某欄跳到別欄,再回到原欄?

假設原定位置是A5,然後跳到同列的D欄,即D5,
當做完一些動作後,位置變成D18,想跳回該列的A欄,即A18,
(繼續閱讀...)

minyeh187 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：
▲top

前一篇最後的模塊中有句

 myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _

               "Data Source=" & ThisWorkbook.Path & "\資料庫.accdb;" '因資料庫的不同需修改資料庫檔名

(繼續閱讀...)

minyeh187 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：
▲top
設定引用項目.png
今天來說明如何在Excel 中搭配 Access資料庫系統來處理經常使用的檔案，以達到管理資料處理半自動的目標
要和Access搭配在Excel VBA中需使用ADODB來連結Access資料庫中的資料到Excel中使用...
第一步就是設定ADODB了
(繼續閱讀...)

minyeh187 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：
▲top
Public Sub ex()
    Dim bSh As Worksheet, aSh As Worksheet
    Dim ARng As Range, BRng As Range
(繼續閱讀...)

minyeh187 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：
▲top
1
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。