返回列表 上一主題 發帖

[發問] 如何橫向填入資料

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-10-27 22:29 | 顯示全部帖子
回復 1# jesscc


    是這樣嗎?(此為新版RAR無法解壓縮請更新Win RAR 5.60)
  1. Private Sub CommandButton1_Click()
  2. 'Module1.Ext
  3. Dim f1, f2, f3 As Workbook '宣告活頁簿變數
  4. Set f1 = Sheets("DATA") '新增活頁簿名稱
  5. Set f2 = Sheets("E") '新增活頁簿名稱
  6. f2.[F5:Z1000] = "" '清除範圍資料，確保每次執行資料更新
  7. For Each aa In f2.Range([D5], [D5].End(xlDown)) 'D5開始向下迴圈讀取
  8. X = 0 '數值
  9.     For i = 5 To Application.CountA(f1.Range("E:E")) + 3 '迴圈數值(起始位置關係所以總數+3)
  10.     If aa.Offset(, 0) = f1.Cells(i, 5) Then '比對名稱相符執行
  11.         If aa.Offset(, 8 + X) = "" Then '比對該aa處往右第8格是否空白
  12.             aa.Offset(, 8 + X) = f1.Cells(i, 2) '空白填入"DATA"PN的值
  13.             aa.Offset(, 9 + X) = f1.Cells(i, 1) '空白填入"DATA"VEN的值
  14.         Else '不是空白往右2個，迴圈i-1重覆一次迴圈，直到填入為止
  15.             X = X + 2
  16.             i = i - 1
  17.         End If
  18.     End If
  19.     Next i
  20. Next aa
  21. End Sub
複製代碼

E_TEST.rar (27.33 KB)

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-10-28 20:45 | 顯示全部帖子
回復 4# jesscc


    因為"活頁簿"
可以在For i 前加入f1.Select，
或是f1.Cells(5000, 5).End(xlUp).Row，
不過我寫的不太適合用Select。

我在前面已經先Set f1及f2活頁簿，
所以就沒有f1.Select的動作。

關於Excel試算表儲存格公式這點我說明一下:
Workbook(工作表).Sheets(活頁簿).Range or Cells or Offset(儲存格位置)
你告訴程式執行位置因該如此，
但為什麼只要打Cells一樣能做動呢?
因為這是Excel VBA，
程序在執行時判讀的是當前活頁簿，
如果以後你有寫到其它程式語言就會應用得到此公式。

用VB.net舉個例子
VB.net(甲員郵差);Excel(乙員住戶)
甲員今天送信到乙員家，
地址只寫520號，
到達目的後隨即投入520號1樓，
但其實乙員家住2樓，
這時是不是就送錯信了。

一樣邏輯，
把位置寫詳細比較好，
但是目前僅執行VBA部分，
所以有些地方我們是可以省略的，
但在其它Sheet資料轉換時就必須敘述清楚或是引用項目。
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-10-28 20:58 | 顯示全部帖子
回復 4# jesscc

Cells(5000, 5).End(xlUp).Row
你看看當前活頁簿的值是多少~沒錯的話是7
就是Sheets("E")的E欄位0.896、0.896、6.3385這裡
如果且換到"DATA"的話E欄位應該值為12
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題