返回列表 上一主題 發帖

[發問] 自動填滿

kasa

帖子
20 
主題
5 
精華
0 
積分
63 
點名
2  
作業系統
WINXP 
軟體版本
OFFICE 2007 
閱讀權限
20 
註冊時間
2014-11-21 
最後登錄
2025-2-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-2-11 01:28 | 只看該作者

[發問] 自動填滿

本帖最後由 kasa 於 2018-2-11 01:31 編輯

平常keyin檢驗數據,只會打一次品號&品名,然後再把所屬檢驗項目的數據填入
累積一段時間後,要設計巨集可自動填滿A/B欄位分別不同的品號&品名
請各位大大幫忙指導如何撰寫
感謝 test.zip (6.75 KB)
收藏 分享

kasa

帖子
20 
主題
5 
精華
0 
積分
63 
點名
2  
作業系統
WINXP 
軟體版本
OFFICE 2007 
閱讀權限
20 
註冊時間
2014-11-21 
最後登錄
2025-2-9 
4#
發表於 2018-2-17 21:15 | 只看該作者
感謝GBKEE大大與ML089大大
GBKEE大大指導的是可一次性使用,ML089大大指導的是可累積反覆不同天檢驗數據使用
我正在想如何融合兩種寫法~~
感謝~~

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2018-2-11 18:01 | 只看該作者
初級的寫法
Sub ex()
For i = 2 To Cells(4 ^ 8, "C").End(xlUp).Row
    If Cells(i, "A") = "" Then Cells(i, "A") = Cells(i - 1, "A").Value
    If Cells(i, "B") = "" Then Cells(i, "B") = Cells(i - 1, "B").Value
Next
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2018-2-11 08:35 | 只看該作者
回復 1# kasa
  1. Option Explicit
  2. Sub Ex()
  3.     With Range("a1").CurrentRegion.Range("a:b")
  4.         If .Cells.Count <> Application.CountA(.Cells) Then
  5.             .SpecialCells(xlCellTypeBlanks) = "=r[-1]c"
  6.         End If
  7.         .Value = .Value
  8.     End With
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題