返回列表 上一主題 發帖

[發問] 輸入序號自動轉存資料

owen9399

帖子
94 
主題
16 
精華
0 
積分
128 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-1-30 
最後登錄
2015-11-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-6 10:32 | 只看該作者

[發問] 輸入序號自動轉存資料

請問 各位高手:

輸入序號自動轉存資料

1.選擇    序號的下拉式選單時
2.例如 選  序號101001     自動帶出公司名稱     蘋果
                          101004                                         聯想
3.當 資料輸入後  儲存 sheet2 中  ,  且 自動清除輸入的資料
4.如何 使 輸入的 資料  相同的     序號 公司    放在一起    (各公司 間格20列)


謝謝大大

輸入序號自動轉存資料.rar (5.06 KB)
收藏 分享
owen

owen9399

帖子
94 
主題
16 
精華
0 
積分
128 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-1-30 
最後登錄
2015-11-17 
3#
發表於 2012-2-7 00:00 | 只看該作者
感謝大大  
無私的分享
讚啦
owen

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-6 20:57 | 只看該作者
回復 1# owen9399
初學者VBA

SHEET1 工作表模組
  1. Private Sub worksheet_change(ByVal target As Range)
  2. If target.Address = "$A$2" Then
  3.    [B2] = Application.VLookup([A2], [G2:H5], 2, 0)
  4. End If
  5. End Sub
複製代碼
一般模組
  1. Sub AA()
  2. C = 2
  3. Do Until Sheet1.[B2] = Sheet1.Cells(C, "H")
  4.    C = C + 1
  5. Loop
  6. CT = Sheet2.Cells((C - 1) * 20, 1).End(xlUp).Row + 1
  7. Sheet1.[A2:C2].Copy Sheet2.Cells(CT, 1)
  8. Sheet1.[A2:C2] = ""
  9. End Sub
複製代碼
輸入序號自動轉存資料.rar (8.6 KB)

TOP

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