返回列表 上一主題 發帖

[發問] 資格結入表格VBA

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-3 21:57 | 只看該作者

[發問] 資格結入表格VBA

FORM.rar (7.72 KB) 可否用VBA, 將下列資料, 結合入表格內, 自動產生以NAME為名稱的SHEET?


Name        Dept        Post
A        1        Clerk
B        2        Senior Clerk
C        3        Officer

下列為SHEET A, 將NAME,DEPT, POST內容顯示, 並有下列RECORD,IN,OUT, REMARKS的按格:
Name        A                        Post        Clerk
Dept        1                               
                                       
Record        In        Out        Remarks
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-2-4 11:29 | 只看該作者
回復 1# missbb
執行前只有data工作表
  1. Sub Test()
  2.   Dim i As Long, bAlert As Boolean
  3.   Dim sName As String, sDept As String, sPost As String
  4.   Dim wsTemp As Worksheet
  5.   
  6.   '先建立暫時的工作表範本，供之後Copy
  7.   Set wsTemp = Sheets.Add(After:=Sheets(Sheets.Count))
  8.   With wsTemp
  9.     .Cells(1, 1).Value = "Name"
  10.     .Cells(2, 1).Value = "Dept"
  11.     .Cells(1, 5).Value = "Post"
  12.     With .Cells(4, 1)
  13.       .Resize(1, 4).Value = Array("Record", "In", "Out", "Remarks")
  14.       .Resize(5, 4).Borders.LineStyle = xlContinuous
  15.     End With
  16.   End With
  17.   
  18.   '對 data 中項目建立各分頁
  19.   With Sheets("data")
  20.     For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
  21.       sName = .Cells(i, 1).Value
  22.       sDept = .Cells(i, 2).Value
  23.       sPost = .Cells(i, 3).Value

  25.       wsTemp.Copy After:=Sheets(Sheets.Count)
  26.       With Sheets(Sheets.Count)
  27.         .Name = sName
  28.         .Cells(1, 2).Value = sName
  29.         .Cells(2, 2).Value = sDept
  30.         .Cells(1, 6).Value = sPost
  31.       End With
  32.     Next
  33.   End With
  34.   
  35.   bAlert = Application.DisplayAlerts
  36.   Application.DisplayAlerts = False
  37.   wsTemp.Delete
  38.   Application.DisplayAlerts = bAlert
  39.   
  40. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
3#
發表於 2015-2-5 22:09 | 只看該作者
回復 2# stillfish00


多謝指導!

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題