亚洲精品国产,免费的黄漫画永久观看网站

jingpengtao

資深元老

發(fā)短消息

關注Ta

積分 33495
帖子 5659
威望 30821 個
禮品券 1636 個
專家指數(shù) 4080
注冊 2010-4-2
專業(yè)方向項目管理
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%

#1

大中小

使用道具

發(fā)表于 2011-07-06 11:47:13 只看樓主

如下圖所示：

[attach]176588[/attach]

我的目的是想讓 “LAC正確“自動填充，由于“LAC錯誤”的數(shù)據(jù)每天都在變，所以”LAC正確“的起始位置也在變化。
VBA里面的自動填充好像需要設定一個確定的地址，如M50:M1000，但是我不想從M50開始填充，而是從任意的一格開始填充。
Selection.AutoFill Destination:=Range("M50:M1000")

下面是我的代碼：

就是判斷”LAC錯誤“的下一個單元格為空的話，就填寫”LAC正確“，然后自動填充。但是我實現(xiàn)不了，求高手指點迷津。
i = 1
While (Cells(i, 13) <> "")
i = i + 1
Wend
Cells(i, 13).Select
ActiveCell.FormulaR1C1 = "LAC正確"
Selection.AutoFill Destination:=Range……

掃碼關注5G通信官方公眾號,免費領取以下5G精品資料

1、回復“YD5GAI”免費領取《中國移動：5G網(wǎng)絡AI應用典型場景技術解決方案白皮書》

2、回復“5G6G”免費領取《5G_6G毫米波測試技術白皮書-2022_03-21》

3、回復“YD6G”免費領取《中國移動：6G至簡無線接入網(wǎng)白皮書》

4、回復“LTBPS”免費領取《《中國聯(lián)通5G終端白皮書》》

5、回復“ZGDX”免費領取《中國電信5G NTN技術白皮書》

6、回復“TXSB”免費領取《通信設備安裝工程施工工藝圖解》

7、回復“YDSL”免費領取《中國移動算力并網(wǎng)白皮書》

8、回復“5GX3”免費領取《 R16 23501-g60 5G的系統(tǒng)架構1》

對本帖內容的看法？我要點評

作者的更多帖子

原創(chuàng)首發(fā)：MSCBSC移動通信論壇宣傳片 2014-03-21
加多寶又捐了1個億 2013-04-28
無論你工資多少，請記住這些 2013-04-22
湖南的C友們，來聚聚了 2013-04-03
獻禮7周年：《集信社》第四期火熱征稿中…… 2013-03-11
7周年活動之1——挖一挖和7相關的圖片 2013-02-27

[充值威望，立即自動到帳] [VIP貴賓權限+威望套餐] 另有大量優(yōu)惠贈送活動，請光臨充值中心
充值擁有大量的威望和最高的下載權限，下載站內資料無憂

linqi_001

金牌會員

發(fā)短消息

關注Ta

積分 7849
帖子 1569
威望 17091 個
禮品券 8 個
專家指數(shù) 4
注冊 2010-4-27
專業(yè)方向通信
來自安徽阜陽
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%

#2

大中小

使用道具

發(fā)表于 2011-07-06 12:01:29

支持一下頂頂頂?shù)牡捻旐?

對本帖內容的看法？我要點評

讀萬卷書不如行千里路，行千里路不如閱人無數(shù)，閱人無數(shù)不如名師指路。經師易得，人師難求。

[立即成為VIP會員，百萬通信專業(yè)資料立即下載，支付寶、微信付款，簡單、快速！]

xinhaoqi

銀牌會員

發(fā)短消息

關注Ta

積分 2894
帖子 543
威望 4536 個
禮品券 85 個
專家指數(shù) 179
注冊 2010-1-14
專業(yè)方向 TD系統(tǒng)優(yōu)化 LTE網(wǎng)絡優(yōu)化
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%

#3

大中小

使用道具

發(fā)表于 2011-07-06 12:43:11

你這個用的是錄制的宏然后修改的吧，
針對你的這種情況，可以使用IF語句判斷一下就可以了
SUB LACcheck()
DIM ROW_NUM AS FLOAT
ROW_NUM=1
TEMP_ROW=1
TEMP_ROW=ActiveSheet.UsedRange.Rows.Count
FOR ROW_NUM=1 TO TEMP_ROW
IF(CELLS(ROW_NUM,2)=CELLS(ROW_NUM,3)) THEN
CELLS(ROW_NUM,4)="LAC正確"
END IF
NEXT
END SUB

以上的代碼只是一個簡單的判斷，不一定能執(zhí)行，想要解決的話把你的原始文件發(fā)給我就行了，其實還有一個更簡單的方法，可以在你要輸出結果的哪一行里嵌入公式就行了，每次用的時候把固定格式的放上去就行了不一定要用VBA

共獲得 1 次點評我要點評

jingpengtao 專家指數(shù) +3 , 威望 +50 個
· 很專業(yè)，對我很有幫助詳細.. 發(fā)表與：2011-7-6 20:41:10

Keep on going,Never give up！

xinhaoqi

銀牌會員

發(fā)短消息

關注Ta

積分 2894
帖子 543
威望 4536 個
禮品券 85 個
專家指數(shù) 179
注冊 2010-1-14
專業(yè)方向 TD系統(tǒng)優(yōu)化 LTE網(wǎng)絡優(yōu)化
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%

#4

大中小

使用道具

發(fā)表于 2011-07-06 12:44:46

上面的代碼不一定在你的EXCEL可以運行成功你的原始數(shù)據(jù)哥們沒有看到啊呵呵
我的威望夠用不要你的威望呵呵呵

對本帖內容的看法？我要點評

Keep on going,Never give up！

TYSBS

中級會員

發(fā)短消息

關注Ta

積分 949
帖子 189
威望 14192 個
禮品券 5 個
專家指數(shù) 4
注冊 2009-12-16
專業(yè)方向優(yōu)化
回答問題數(shù) 0
回答被采納數(shù) 0
回答采納率 0%

#5

大中小

使用道具

發(fā)表于 2011-07-06 13:37:41

i = 1
While (Cells(i, 13) <> "")
i = i + 1
Wend
Cells(i, 13).Select
ActiveCell.FormulaR1C1 = "LAC正確"
b = [L1].End(xlDown).Row
Selection.AutoFill Destination:=Range(Cells(i, 13), Cells(b, 13))

a = [M1].End(xlDown).Row'第13列的連續(xù)的不為空的單元格數(shù)
b = [L1].End(xlDown).Row'第12列的連續(xù)的不為空的單元格數(shù)
Cells(a+1, 13).Select
ActiveCell.FormulaR1C1 = "LAC正確"
Selection.AutoFill Destination:=Range(Cells(a+1, 13), Cells(b, 13))

共獲得 1 次點評我要點評

jingpengtao 威望 +50 個
· 不錯！詳細.. 發(fā)表與：2011-7-6 20:40:47

快速回復主題
標題
內容	上傳資料請點左側【添加附件】


	您即將訪問其它網(wǎng)站關閉您即將訪問的地址是其它網(wǎng)站的內容，MSCBSC將不再對其安全性和可靠性負責，請自行判斷是否繼續(xù)前往繼續(xù)訪問取消訪問，關閉

對本帖內容的看法？ 我要點評

對本帖內容的看法？ 我要點評

共獲得 1 次點評 我要點評

對本帖內容的看法？ 我要點評

共獲得 1 次點評 我要點評

您即將訪問其它網(wǎng)站關閉

對本帖內容的看法？我要點評

對本帖內容的看法？我要點評

共獲得 1 次點評我要點評

對本帖內容的看法？我要點評

共獲得 1 次點評我要點評