固定該顯示的空格該怎麼寫VBA?:－線上遊戲排行榜2013/2014,進擊的巨人線上看,candy crush saga外掛,正妹寫真三圍

Blogtrottr

Yahoo!奇摩知識+ - 分類問答 - 電腦網路 - 發問中

Use GarageBand in Just 1 Hour

Learn to create music in GarageBand and become the Beethoven you've wanted to be. This online course is just $30. Sign up today!

From our sponsors

固定該顯示的空格該怎麼寫VBA?

Aug 21st 2013, 07:07

以下是我寫的存檔VBA:

Private Sub CommandButton8_Click() '存檔

Application.ScreenUpdating = False '螢幕顯示停止

Dim RRR As Variant '第幾列
RRR = Selection.Row

Rows(RRR).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Cells(RRR, 2).Select

ActiveCell.Offset(1, 0).Select

'填入本身工作表欄位中

ActiveCell.Offset(0, 1).Value = TextBox103.Value '校驗計畫
ActiveCell.Offset(0, 2).Value = TextBox104.Value '校驗日期
ActiveCell.Offset(0, 3).Value = TextBox105.Value '壓痕器編號
ActiveCell.Offset(0, 4).Value = TextBox106.Value '校驗試片編號
ActiveCell.Offset(0, 13).Value = TextBox115.Value 'X1
ActiveCell.Offset(0, 14).Value = TextBox116.Value 'X2
ActiveCell.Offset(0, 15).Value = TextBox117.Value 'X3
ActiveCell.Offset(0, 16).Value = TextBox118.Value '校驗試片編號
ActiveCell.Offset(0, 25).Value = TextBox127.Value 'X1
ActiveCell.Offset(0, 26).Value = TextBox128.Value 'X2
ActiveCell.Offset(0, 27).Value = TextBox129.Value 'X3
ActiveCell.Offset(0, 29).Value = TextBox131.Value '校驗者

SAVECHANGES = True '存檔
MsgBox "新增存檔成功"

End Sub

我想要請問一下,有什麼方法,可以不用這樣寫?
比如說我的檔案的資料在26列結束
那新的27列開始,空格處我自己填入就好
那固定該自己顯示的空格要怎麼讓它自動顯示呢?
該怎麼寫,謝謝><

This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: 'You Say What You Like, Because They Like What You Say' - http://www.medialens.org/index.php/alerts/alert-archive/alerts-2013/731-you-say-what-you-like-because-they-like-what-you-say.html

You are receiving this email because you subscribed to this feed at blogtrottr.com.

If you no longer wish to receive these emails, you can unsubscribe from this feed, or manage all your subscriptions