控制面板援助 - 創建

-1

我想在Excel中創建一個「控制面板」。控制面板援助 - 創建

我試圖找對的項目的第一部分是根據單元格值將一系列信息複製到其他工作表的功能。

例如：

入學一個月到期日由於S/O或SOM博爾特起家寬帶移動收購移動保持開放的日期，發佈

這是用戶輸入的信息進行記錄。基於月份截止日期，其格式與我的標籤I.e.相同。 2013年5月，2013年6月等我試圖把它複製到下一行可用的相應表格中。

行在每個頁面上開始C13（C13：J13）。大約有25個選項卡。

這可能嗎？我找到了可以用來複制到另一個工作表的代碼，即。對於2張工作簿。但這不是我所追求的。

這個任務的第二部分是在這之下的一個選項，我也無法工作。這個部分是更新以前輸入的信息。只有1個部分需要更新，那就是打開/關閉/發佈部分。我有空格輸入月份，S/O或SOM號碼（如參考）和更新的狀態。基本上，這個功能將搜索參考號並將新狀態粘貼到J13中，例如J144，具體取決於它的位置。

我不確定我應該改變什麼使宏工作。

來源

2013-04-14 user2280669

基本上，這是你需要做的。聲明Worksheet和Range變量爲源&目標數據。然後，將destiantion單元的值=設置爲源單元格的值。

Sub Test() 
Dim ws1 as Worksheet 'Source worksheet 
Dim ws2 as Worksheet 'Destination worksheet 
Dim rng1 as Range  'source data range 
Dim cl as Range 'cell variable 
Dim rng2 as Range  'destination data range 
Dim r as Long 'row counter 

Set ws1 = Sheets("Sheet1") '<-- Modify as needed' 

Set rng1 = ws1.Range("C13:J13") 

    'assuming your dates & worksheets are consistently named, and the date is in column D: 
    Set ws2 = Sheets(Cstr(rng1.Cells(2).Value)) ' 

    'Get the last line in column C on destination sheet 
    r = 1+ ws2.Range("C1048576").End(xlUp).Row 

    'Set the destination range, assuming column C: 
    Set rng2 = ws2.Range("C" & r & ":J" & r & ") 

    'Now, set the values in the second range equal to the first range 
    rng2.Value = rng.Value 



End Sub

來源

2013-04-15 01:54:35

控制面板援助 - 創建

回答

相關問題