返回列表 上一主題 發帖

請問如何設定一個按鈕

  1. Private Sub CommandButton1_Click()
  2. AOAend = Sheets("AOA").Columns(3).Find("*", , , , , xlPrevious).Row
  3. Sheets("AOA").Cells(AOAend + 1, "C") = [b6]
  4. Sheets("AOA").Cells(AOAend + 1, "F") = [b7]
  5. Sheets("AOA").Cells(AOAend + 1, "G") = [b8]
  6. Sheets("AOA").Cells(AOAend + 1, "J") = [b9]
  7. Sheets("AOA").Cells(AOAend + 1, "M") = [b10]
  8. Sheets("AOA").Cells(AOAend + 1, "O") = [b12]
  9. End Sub
複製代碼
回復 1# john711101

TOP

回復 6# john711101


    不用PO圖片了,我知道是什麼
那是因為你AOA工作表C1:E1有設定合並儲存格的關係,一般做為資料庫的工作表最好不要有合併儲存格,因為比較會產生錯誤,不然學"林大"的隱藏合併儲存格也可以解決這問題!

TOP

        靜思自在 : 口說一句好話,如口出蓮花;口說一句壞話如口吐毒蛇。
返回列表 上一主題