q1a2z5

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-21 15:19 | 只看該作者

[發問] 可否用表單方式來建立資料庫?

可不可以用表單方式來填入資料 ,以建立員工基本資料庫?
如附件
謝謝！

附件.rar (26.42 KB)

樓主熱帖

atuan207

中學生 Rank: 2

帖子: 27
主題: 7
精華: 0
積分: 69
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-19
最後登錄: 2012-6-26

2^#

發表於 2011-4-21 19:20 | 只看該作者

本帖最後由 atuan207 於 2011-4-21 20:04 編輯

我自己最近試做的表單方式KEY資料，
因為權限還不夠，不能看大大的附加檔案
所以我自己做的丟上去給你看看
希望有幫助

表單方式KEY資料.rar (13.57 KB)

PS.當中部分程式也是在這問問這邊的前輩才多出來的(新增&刪除)

TOP

q1a2z5

中學生 Rank: 2

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

3^#

發表於 2011-4-26 16:30 | 只看該作者

回復 2# atuan207

謝謝你的解答，但我的權限無法下載檔案，請問各位可否用其他方式呈現出來呢？

謝謝！

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

4^#

發表於 2011-4-28 00:20 | 只看該作者

本帖最後由 luhpro 於 2011-4-28 00:27 編輯

嗯...
你已經可以自己建立起自定表單控制項了,
那麼就可以把 UserForm1.TextBox1.Text 等等與 Sheet 中的資料交互對應參照.

命令按鈕只要 DoubleClick 就會自動建立 sub 把程式鍵進去即可,
執行時則只要點該按鈕就會跑相應的程式.

至於 Sheet 中上下一筆資料的取用方式建議用 Sheet(1).Cells(3,1) 的方式,
其中 Cells(3,1) 表示取用列 3 欄 1 <即 Range("A3")> 的資料,
而藉由
With Sheet(1)
  .Cells(iRow, 1).value  ' 第一筆資料的姓名
  .Cells(iRow, 2).value  ' 第一筆資料的身份證字號
  .
  .
  .
End With
則只要更改 iRow 就可以取得每一筆資料的內容

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-5-27 09:07 | 只看該作者

多發一點文章~ 集滿50分就可以下載了~

學習才能提升自己

TOP

rph

中學生 Rank: 2

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 33
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2024-11-8

6^#

發表於 2011-6-3 16:32 | 只看該作者

Private Sub Cbo新增資料_Click()
   myarray = Array(Txt姓名.Value, Txt電話.Value, Txt地址.Value)
[b65536].End(xlUp).Offset(1).Resize(, 3) = myarray ===>請問左邊這行程式碼,可否幫解釋一下!!
If Range("A2") = "" Then
      Range("A2") = 1
      Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries===>請問左邊這行程式碼,可否幫解釋一下!!
Else
      Range("A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row).DataSeries    ===>請問左邊這行程式碼,可否幫解釋一下!!
End If
End Sub

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

7^#

發表於 2011-6-3 21:11 | 只看該作者

回復 7# rph
[b65536].End(xlUp) : 從 Range("B65536") 儲存格開始往上找第一個有資料的儲存格, 亦即該欄資料區域的最底下一個.(即按 End 鍵找到的那個)
.Offset(1) : 向下移動一格, 等同 .Offset(1, 0)
.Resize(,3) : 向右擴充選取區域為包含該格共 3 個欄位的儲存格為標的, 等同 .Resize(0, 3)

要知道與儲存格有關的指令用途可以直接貼在即時運算視窗逐步於右邊加上 .Select 就可以看到效果了
例如 : 先打上 [b65536].End(xlUp).Select 看哪個儲存格被選取了,
中間加上 .Offset(1) 變成 [b65536].End(xlUp).Offset(1).Select 繼續觀察... 依此類推.

Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
就是以數個(即 "A2:Ax" x=B欄最底一個有資料的儲存格的列編號<藉由 .Row 取得>)儲存格為標地建立資料數列

Range() 右方兩個括弧中間其實就是文字相接, 可以直接 Copy 貼到即時運算視窗再在左方加一個 ? 就可了解,
即 ? "A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row 就知道它是怎麼回事了.

請善用 Mark 命令文字後按 F1 鍵找說明.

TOP

zcxzcxz