[發問] 資料複數回傳

　暱稱: 温奇
　頭銜: 議論者

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

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

2^#

發表於 2018-7-12 06:22 | 只看該作者

回復 1# s13983037

[發問] 如何實現,儲存格內容改變,就會觸發VBA程序執行
請參考！

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

s13983037

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

3^#

發表於 2018-7-12 23:07 | 只看該作者

回復 2# faye59

您好,
其實我是想了解,
如果是不使用VBA的情況下,

單純使用函示的話,
有無可能,
由左至右的方式, 確認每一欄的資料是有顯示,
如果說是資料無顯示的話, 橘色的欄位則不進行字串組合.

如果說是資料有顯示的話,
資料只顯示一筆的話, 橘色的欄位進行組合(僅一筆)
資料只顯示多筆的話, 橘色的欄位進行組合(多筆組合)
類似黃色區塊如果有N筆, 橘色的欄位則把N筆組合, 並透過"," ,隔開
有無可能性的方法, 謝謝.

還是這部分只能透過IF 逐欄位進行判斷組合.

參考圖

　暱稱: 温奇
　頭銜: 議論者

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

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

4^#

發表於 2018-7-13 07:37 | 只看該作者

回復 3# s13983037

我先用到這了...

請教其他大神忙修改吧...過幾天我在嘗試看看...
先試試看是不是這總類似的結果，
跳過空格判斷這個我也不是很懂...

[發問] Calculate，能否回傳發生變動的儲存格的欄位
我還在參考這篇文章看要怎麼改。

EXCEL 問題0713.rar (15.17 KB)

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

　暱稱: 温奇
　頭銜: 議論者

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

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

5^#

發表於 2018-7-15 20:28 | 只看該作者

回復 3# s13983037

今天看到其他高手的寫法，修改後看是不是你要的結果。

EXCEL 問題0715.rar (14.37 KB)

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

s13983037

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

6^#

發表於 2018-7-15 22:41 | 只看該作者

回復 5# faye59

謝謝你(妳),
我解壓縮軟體的WINRAR的
我無法解開這個RAR檔
不知道您這邊壓縮的軟體是??
:)

　暱稱: 温奇
　頭銜: 議論者

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

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

7^#

發表於 2018-7-15 22:49 | 只看該作者

回復 6# s13983037

是.rar沒錯阿。
我的WinRAR版本5.60(64位元)

EXCEL 問題0715.rar (14.37 KB)

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

　暱稱: 温奇
　頭銜: 議論者

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

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

8^#

發表於 2018-7-15 23:04 | 只看該作者

回復 6# s13983037

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5:K14]) Is Nothing Then Exit Sub
ex
End Sub

複製代碼

Sub ex()
Dim Out As Variant
For n = 5 To 16
Out = Array(Cells(n, 3), Cells(n, 4), Cells(n, 5), Cells(n, 6), Cells(n, 7), Cells(n, 8), Cells(n, 9), Cells(n, 10), Cells(n, 11))
ub = UBound(Out)
For i = 0 To ub
If Out(i) <> "" Then: OutAll = OutAll & "." & Out(i)
Next
Cells(n, 13) = Mid(OutAll, 2, 99)
OutAll = ""
Next
End Sub

複製代碼

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

s13983037

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

9^#

發表於 2018-7-15 23:19 | 只看該作者

回復 8# faye59

謝謝, 了解, 我在自己修改一下, 就差不多了
感謝^^

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

10^#

發表於 2018-7-25 14:52 | 只看該作者

回復 9# s13983037
VBA自己定義函式，還是能即時更新
模組中輸入

Public Function MyJoin(source As Range, delimiter As String, Optional ignoreEmpty = True) As String
For Each x In source
If Not ignoreEmpty Or Len(x) > 0 Then
MyJoin = MyJoin & IIf(Len(MyJoin) = 0, "", delimiter) & x.Text
End If
Next
End Function

複製代碼

M5填入 =MyJoin(C5:K5, ",", TRUE)
第一個參數是結合的範圍，第二參數是要使用的分隔符號，第三參數是用來選擇是否要忽略空白。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。