- 帖子
- 605
- 主題
- 92
- 精華
- 0
- 積分
- 648
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7
- 閱讀權限
- 50
- 性別
- 男
- 來自
- macau
- 註冊時間
- 2013-4-5
- 最後登錄
- 2019-2-10
 
|
- Function CONTEXT(inprng As Range, Optional delimiter As String, Optional row1st As Boolean) As String
- 'delimiter Optional. String character used to separate the substrings in the returned string.
- 'If omitted, a zero-length string (""), all items in the list are concatenated with no delimiters.
- 'row1st Optional. Boolean from Row to Column. If omitted, from column to row
- Dim RowN As Double
- Dim ColN%, i%
- Dim TmpAr() As Variant
- RowN = IIf(inprng.Rows.Count < 16384, inprng.Rows.Count, 16384)
- ColN = inprng.Columns.Count
-
- Select Case 0
- Case RowN + ColN - 2
- CONTEXT = inprng
- Case RowN - 1
- CONTEXT = Join(Application.Transpose(Application.Transpose(inprng)), delimiter)
- Case ColN - 1
- CONTEXT = Join(Application.Transpose(inprng), delimiter)
- Case Else
- If row1st = True Then
- ReDim TmpAr(1 To RowN)
- For i = 1 To RowN
- TmpAr(i) = Join(Application.Transpose(Application.Index(Application.Transpose(inprng), , i)), delimiter)
- Next i
- CONTEXT = Join(TmpAr, delimiter)
- Else
- ReDim TmpAr(1 To ColN)
- For i = 1 To ColN
- TmpAr(i) = Join(Application.Transpose(Application.Index(inprng, , i)), delimiter)
- Next i
- CONTEXT = Join(TmpAr, delimiter)
- End If
- End Select
- End Function
|
|
發表於 2013-6-4 00:29
| 
