VBA method to extract dates from a certain box and then put it into another box?

Use format(date cell,"mm/dd/yyyy") and then use format(date cell,"hh:mm:ss")

The steps to read the contents of one Excel cell to another cell via VBA are as follows:

1. Create a recording interface in VBA, set the input button, set the input button to realize the input function, double-click the input button, enter the window.

3. Set the text format, size, font, alignment, etc. of the content displayed in the input cell. Use fonts to set the text size and automatically adjust the cell width based on input.

4. Set the cancel button**, hide**, when we press the cancel button, it will hide the input**, and then create a **set as the main interface, and set the worksheet name as the main interface.

5, Insert the command button in the dev tool, change the title in the command button properties to the text you want to display, and enter ** to call the form to the button, as shown in the figure, the effect is that when you click the button, you can call the created input interface.

6. At this point, when we click on the login button, the settings form will pop up. Then we enter the corresponding content in the text box of the form, and the content will be displayed in the corresponding cell according to the position we set.

With me this, sub aa().

range("a1:a5").copy

a1").pastespecial xlpasteall, ,true

range("a1:a5").clear 'Use to delete the copied area, and if the area needs to be retained, delete this sentence.

end sub

dim xsht1 as worksheetdim xsht2 as worksheetset xsht1 = sheets("sheet1")set xsht2 = sheets("sheet2")for i = 1 to 45

i) = + 3, 3)

C4-C48 in Sheet1 are placed in the first line of Sheet2.

next i

'Enter the value of A1 of Sheet1 in cell A1 of Sheet2.

sheets("sheet2").cells(1,1)=sheets("sheet1").cells(1,1)

or sheets("sheet2").range("a1")=sheets("sheet1").range("a1")

As a result, I didn't say where I wanted to put it, whether it was down or right.

subyang()

Open the file in the same directory.

sheets("②count

table").range("a5:kh1500").

copyworkbooks("").sheets("②counttable").range("Blind a5:

a5:kh1500") to copy the data.

true closes.

endsub

Inside the former Kamiga's mistake in the Hui faction.

range("a5:a5:kh1500") to copy the data. Should be.

range("a5:kh1500")

) to copy the data.

The value of one cell is entered manually, and the value of other cells is automatically populated according to the value of this cell in another worksheet.

As shown in the figure below, for example, after manually entering the [Part Number, Specification and Model] field of the BOM worksheet, he will automatically find the corresponding field [FmodelSpecification] in the Item worksheet, and automatically fill in the fields such as [Material Attributes] and [Material Status] after finding it, no manual input is required, and it is left to worry if it cannot be found. Implemented with VBA.

1. [Material Property] corresponds to [FmaterialProperty] of the item worksheet

2. [Material Status] corresponds to [FmaterialState] of the Item worksheet