是否有人可協助開發 ?

oliwa

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win8
軟體版本: Office2013
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-9
最後登錄: 2021-7-2

論壇榮譽勳章論壇贊助勳章

18^# 跳轉到 »

發表於 2015-3-31 20:42 | 只看該作者

回復 17# lpk187

收到 , 我來玩玩看 ..............

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

17^#

發表於 2015-3-30 14:52 | 只看該作者

回復 16# oliwa

寫VBA本來就是要練習，而且要多看說明，
說實在的我並不是高手，只是自己公司有用到VBA去做進銷存，所以會的其實也不多！
我們再來以下的說明
新增
A)按下後新增一列 , 跳出視窗輸入公司代號 , 檢查是否已存在對應此代號的Sheet
B)複製Form Sheet , 及更名為該公司代號為Sheet名

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Cells(Target.Row, "A").Address Then
If Target = "新增" Then
msg = MsgBox("是否新增一筆資料", 4)
If msg = vbNo Then End
inp = InputBox("請輸入代號", "新增")
If inp = "" Then End
For Each sh In Sheets ' 找尋所有工作表
If sh.Name = inp Then '如果有工作表名稱相同的，就結束此程序
MsgBox "已有此代號存在，請重新輸入"
End '結束 Sub
End If
Next
Sheets("From").Copy Before:=Sheets(2) '複製From工作表放在第2個位置
Sheets("From (2)").Name = inp '工作表各稱更改為InputBox輸入的代號
Sheets("List").Select
Rows(Target.Row).Insert '上面 For...Next 若沒找到InputBox相同代號則在"新增"的這個儲存格新增一列
Cells(Target.Row - 1, "A") = inp '新增一則後，在A欄的新增出來的儲存格其為InputBox輸入的代號
End If
End If
End Sub

複製代碼

TOP

oliwa

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win8
軟體版本: Office2013
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-9
最後登錄: 2021-7-2

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2015-3-30 14:14 | 只看該作者

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LastRow = Sheets("List").Cells(1, "A").End(xlDown).Row
If Target.Row < LastRow + 1 And Target.Row > 1 Then
      If Target.Address = Cells(Target.Row, "J").Address Then
         If Target.Select Then
            Id_Comp = Cells(Target.Row, "A").Value
            Id_Year = Cells(Target.Row, "D").Value
            MsgBox Id_Comp & Id_Year
         End If
      End If
End If
End Sub

用 lpk187 的例子 + 說明後 , 試完如上的內容 , 可以達成按下某儲存格後即呼叫的動作 , 感謝 .......

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

15^#

發表於 2015-3-30 14:13 | 只看該作者

回復 14# oliwa

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = .Address Then
If Target.Select Then''''''''''這一個 IF...End If 是不必要的，只要第一個IF就可以達成你要的MsgBox的結果
   MsgBox "Hello !"

End If
End If
End Sub
另Cells(Target.Row,1).Value 是可以讀取該儲存格的值，而且  .Value 是可以省略的

TOP

oliwa

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win8
軟體版本: Office2013
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-9
最後登錄: 2021-7-2

論壇榮譽勳章論壇贊助勳章

14^#

發表於 2015-3-30 13:59 | 只看該作者

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Cells(Target.Row, "J").Address Then
If Target.Select Then
MsgBox "Hello !"

End If
End If
End Sub

感謝協助 , 我改成如此的方式來運作 , 點選該該儲存格後即出現 MsgBox , 感謝 ...
用 MsgBox 改成 Call Sub , 即可達成選說即執行的動作了 ,

那請問 , 在點選後要取得該列某儲存格內容 , 是否可以用 Cells(Target.Row,1).Value ?

TOP

oliwa

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win8
軟體版本: Office2013
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-9
最後登錄: 2021-7-2

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2015-3-30 13:50 | 只看該作者

回復 12# lpk187

收到 , 我試玩玩看這組 .....

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

12^#

發表於 2015-3-29 22:17 | 只看該作者

本帖最後由 lpk187 於 2015-3-29 22:19 編輯

回復 11# oliwa

oliwa 不用恢心！其實大家不是不幫你，而是你自己要一步一步去訂目標然後去完成你的目標，畢竟以後你寫的程式必須你自已去維護所以就算別人寫給你的程式如果達不到你的目標那時怎麼辦?
VBA是程式碼，所以COPY來COPY去，若沒修改你所需要的再怎麼COPY也沒用，我來先開個頭來說你的目標好了

新增
A)按下後新增一列 , 跳出視窗輸入公司代號 , 檢查是否已存在對應此代號的Sheet
B)複製Form Sheet , 及更名為該公司代號為Sheet名

上面的"新增"你是要利用你上傳檔案的儲存格或者是利用一個按鈕來表示？兩者所寫的代碼會有些許的不同，但利用儲存格則會留下缺點(必須跳出那一格後再點選那個儲存格)
利用"儲存格"方式大約可以這麼寫，""你必須了解每一條式子的意義才行""
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '此事件是當你選取某個儲存格後發生
If Target.Address = Cells(Target.Row, "A").Address Then'下面判斷是先在"A欄"尋找有"新增"字樣的儲存格
If Target = "新增" Then
      msg = MsgBox("是否新增一筆資料", 4)
      If msg = vbNo Then End       '判斷若按下右按鈕後則離開程式
      inp = InputBox("請輸入代號", "新增") '跳出視窗輸入公司代號
      '以下是你要的目標代碼
      '代碼(下次再演練)
      '''''''''''''''''''''''''''''''''''''''''''''''''
End If
End If
End Sub
以上是部份代碼，你可以利用"F9"鍵來中斷第一個"IF"，再利用"F8"鍵來逐行執行，你會很容易的了解程式的運作過程
以後的代碼我們再慢慢的來討論

1 評分人數

GBKEE: 精品文章金錢 + 4

TOP

oliwa

中學生 Rank: 2

帖子: 40
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win8
軟體版本: Office2013
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-9
最後登錄: 2021-7-2

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2015-3-29 19:34 | 只看該作者

回復 1# oliwa

各位說的都沒錯 , 錄製也有試過 , 但整合起來就是不能正常運作 ,
網上有不少範例 , 但COPY來COPY去就是無法正運作 , 因為參數引用不同自然無法連貫使用 ,
有些語法有說明 , 有些沒有 , 自然是看不懂 , 叫好再繼續看範例找解說了 .....

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

10^#

發表於 2015-3-28 13:26 | 只看該作者

本帖最後由 mark15jill 於 2015-3-28 13:28 編輯

我想可能是一開始我向樓主詢問的意思不明確
導致樓主誤會我的意思
+==================================+
" 請簡單敘述您的問題點所需功能動作方式
只丟一段話沒任何說明  很難讓人理解"
+==================================+
這段話是說除了 "簡單敘述您的問題點、  所需功能動作方式" 還需要  附檔案
附檔案的意思  不是叫你丟個空程式碼檔案(不管有無內容)
然後就要人家幫你解決...
這樣就很像  今天某人機車壞掉他拿去修理，卻沒把鑰匙給維修人員
這樣就算維修好  怎知道維修完成或沒完成?? 怎知道有沒有其他問題???
懂我意思?

今天不是說不能發問  (大字點以免又被誤會我在嗆不能發問)
而是光丟個檔案 (或許內有說明) 沒任何程式碼
就要人家幫你解決
說真的  如果是我 ... 你哪位???
你發問是學習不是撿現成
像之前我發的文章
先自己嘗試、遇問題發問(需程式碼+說明)、自己才能學到

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

9^#

發表於 2015-3-27 17:21 | 只看該作者

回復 7# oliwa
自修一季卻沒有任何程式碼，這實在有問題
換做是我，自己要錄製一下，感受一下程式碼差別呢？
不然把你的想法發包出去，說不定有人就會幫忙

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]