相對應的儲存位:Realtime－線上遊戲排行榜2013/2014,進擊的巨人線上看,candy crush saga外掛,正妹寫真三圍

Blogtrottr

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

Find Unique T-shirts

Explore the most popular t-shirts on Cafepress. Discover great designs celebrating anything you can think of.

From our sponsors

相對應的儲存位

Oct 19th 2014, 05:35

Private Sub CommandButton1_Click()
A = Application.InputBox("輸入uF數值")
X = MsgBox("是否繼續執行？", 1 + 64)
If X = 1 Then
Cells(63, 5) = A
Cells(64, 5) = "uF"
Cells(54, 5) = [F62]
On Error Resume Next
With Sheets("sheet1")
Sheets("sheet1").Cells(Application.Match([G59], [sheet1!a:a], 0), 3) = [e59].Value
End With
End If
End Sub
有辦法改為 Match([G59], [sheet1!a52:k52]這樣,然後對應往下2格存入嗎(原來是往右)?
謝謝

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.

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