問題:http://club.excelhome.net/thread-1397708-1-1.html

主要解法:

union

解法:

Sub test2()

chrisovo 發表在 痞客邦 留言(0) 人氣()


問題:http://club.excelhome.net/thread-1395572-1-3.html

重點解法:

split(陣列 , 分割字符) => 分割後會變成一維陣列

程式碼:

Sub test()

chrisovo 發表在 痞客邦 留言(0) 人氣()


問題:http://club.excelhome.net/thread-1394890-1-1.html

重點方法:

array

offset

解法:

chrisovo 發表在 痞客邦 留言(0) 人氣()


問題:http://club.excelhome.net/thread-1394832-1-1.html

重點方法:application.inputbox(prompt:="",type:=)

解法:

Sub test()

Dim arr, brr, crr

chrisovo 發表在 痞客邦 留言(0) 人氣()


網路問題:http://club.excelhome.net/thread-1393985-1-1.html

重點公式:Union() - 選取多個不同列不同欄之儲存格

我的解法:

Sub test()

Dim sh As Worksheet

chrisovo 發表在 痞客邦 留言(0) 人氣()


網路問題:http://club.excelhome.net/thread-1393323-1-1.html

解法:

Sub test()

Dim Arr, Brr, Crr
Dim Row_A%, Row_B%, K%

chrisovo 發表在 痞客邦 留言(0) 人氣()

'選取特定儲存格時,會啟動textbox、listbox的功能

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'當開始點犬儲存格時,隱藏TEXTBOX & LISTBOX
   Dim i As Integer
    ListBox.Clear

chrisovo 發表在 痞客邦 留言(0) 人氣()

Sub 資料彙整()
Dim d, arr
Dim i As Long
Set d = CreateObject("scripting.dictionary")
arr = Range("a3:c17908")

chrisovo 發表在 痞客邦 留言(0) 人氣()

Dictionary -  字典对象相当于一种联合数组,它是由具有唯一性的关键字(Key)和它的项(Item)联合组成。

基本寫法:

set d = createobject("scripting.dictionary")

d.add(key, item) 製造一個關鍵字,並賦予給他一個相關值=> 可縮寫為 d(key) = item .. ex : d(arr(i,2)) = 2

d.exists(d(keys)) 看關鍵字是否存在=> ex: if not d.exists(arr(i,1)) then do sth

chrisovo 發表在 痞客邦 留言(0) 人氣()

這篇文章受密碼保護,請輸入密碼後查看內容。

chrisovo 發表在 痞客邦 留言(0) 人氣()

1
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲,請立即離開。

已滿十八歲者,亦請勿將內容提供給未成年人士。