返回列表 上一主題 發帖

[發問] 請問如何讓cells成為一個變數？

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2023-11-11 10:00 | 只看該作者

[發問] 請問如何讓cells成為一個變數？

  1.     Dim na%, nb%, nc%
  2.         For i = 2 To 20
  3.             na = Cells(i, 11)
  4.             nb = Cells(i, 11).Offset(-1, 0)
  5.             nc = Cells(i, 11).Offset(0, 1)
  6.             If na <> "" Then
  7.                 na = nb
  8.             End If
  9.             If na = "" Then
  10.                 na = nc
  11.             End If
  12.         Next
  13.     End If
複製代碼
使用後無任何錯誤訊息也沒有任何反應，不知道是不是cells不能是一個變數，還是下的指令有誤，謝謝觀看
收藏 分享

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
4#
發表於 2023-11-11 18:47 | 只看該作者
回復 2# Andy2483


    自動遞增、列出缺號.rar (13.48 KB)

已解答，當時我邏輯出錯，是 cells的值存入 na，我還想更簡短的撰寫，謝謝前輩的觀看。

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 2023-11-11 16:52 | 只看該作者
本帖最後由 av8d 於 2023-11-11 16:55 編輯

回復 2# Andy2483

感謝前輩的觀看，na是 Cells(i, 11)
我原本打算 dim na as range
但是該儲存格.value為數字所以dim 短整數
我儲存成Excel上傳後再告知前輩，感謝

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 2023-11-11 11:37 | 只看該作者
回復 1# av8d
na宣告為短整數 為何用判斷式na不等於空字元？
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題