12345
返回列表 上一主題 發帖

[發問] ~ 發現一個新的問題 關於IF判斷式

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
11# 跳轉到 »
發表於 2014-4-2 12:53 | 只看該作者
謝謝版主，再請問一下
我今天有個檔案我開了50個sheet,每個sheet我都設了一個按鈕用為導入資料至sheet1 ,
但今天我要整理sheet1的資料我想再寫個按鈕使用版主給我的巨集整合資料，
可是出現""公式太複雜要分配給對象""
這樣我該怎麼刪除按鈕 存檔 重新開啟檔案呢??

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2014-4-2 13:13 | 只看該作者
回復 11# willy1205
我使用的2003版沒這問題
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2025-1-16 
13#
發表於 2014-4-2 14:39 | 只看該作者
謝謝您的解答!感恩啦!

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
14#
發表於 2014-4-7 11:48 | 只看該作者
回復 12# GBKEE


版主在請問一下 如果今天我資料只到A43, 不是由A欄最後一列往上算，這樣range這邊該如何修改??   

R = Range("A" & Rows.Count).End(xlUp).Row    'A欄由最後一列往上到有資料的列號

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2014-4-7 12:13 | 只看該作者
回復 14# willy1205
如果今天我資料只到A43,是何情況沒說清楚,要附檔看看.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
16#
發表於 2014-4-7 12:25 | 只看該作者
回復 15# GBKEE


    ex.zip (9.54 KB)


如附檔，裡面一個表格，最下面簽名用，所以資料只會到A37 ，有辦法在不影響表格大小之下刪除中間資料與資料中間沒有的空格列嗎??

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2014-4-7 13:47 | 只看該作者
回復 16# willy1205
  1. Option Explicit
  2. Sub Ex_排序()  '不必刪除
  3.     With Range("A3:G37")
  4.         .Sort .Cells(1), xlAscending
  5.     End With
  6. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
18#
發表於 2014-4-7 14:17 | 只看該作者
回復 17# GBKEE


  謝謝版主
真是受益良多

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
19#
發表於 2014-4-11 12:26 | 只看該作者
回復 19# willy1205


    ex.zip (19.09 KB)

如附檔，再sheet1輸入資料，按下按鈕導入資料至甲君及乙君的表裡面，
但是目前除了甲君乙君以外，總共有35個人，一個人有2個可能主辦或協辦，
所以光一個導入資料的按鈕就有70個if判斷式.....
不知道一個巨集是否擠得下70個if的判斷式嗎??
還是有其他可以簡化的寫法呢??

謝謝版主

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
20#
發表於 2014-4-11 13:14 | 只看該作者
回復 20# willy1205
所以光一個導入資料的按鈕就有70個if判斷式?
要判斷什麼,沒在檔案中說明.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
12345
返回列表 上一主題