close
Blogtrottr
Yahoo!奇摩知識+ - 分類問答 - 電腦網路 - 發問中
Yahoo!奇摩知識+ - 分類問答 - 電腦網路 - 發問中 
Free Bestselling eBooks

Free national bestsellers for your eReader - Fiction, Nonfiction & more! Join 1.5 million book lovers now. Sign-up in under 10 seconds to get the free daily email.
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
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 papiliosa 的頭像
    papiliosa

    鐵獅玉玲瓏 電影 鐵獅玉玲瓏主題曲 鐵獅玉玲瓏影片 鐵獅玉玲瓏 電影預告 鐵獅玉玲瓏 預告片 鐵獅玉玲瓏演員 鐵獅玉玲瓏首映 鐵獅玉玲瓏上映

    papiliosa 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄