沒有定義這個sub或function - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 沒有定義這個sub或function

返回列表下一主題上一主題發帖

[發問] 沒有定義這個sub或function

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-3-16 12:45 | 顯示全部帖子

本帖最後由 c_c_lai 於 2016-3-16 12:51 編輯

回復 4# takeshilin88
試試看

Function RangetoHTML(rng As Range)
Dim rng2 As Range, txt As String
For Each rng2 In rng
If rng2 <> "" Then
txt = txt & " " & rng2.Text
End If
Next
RangetoHTML = txt
End Function

複製代碼

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。

返回列表下一主題上一主題