Вопрос : Значение даты формы в колонке

Hi специалисты,

I хотел были бы спросить помощь специалистов для того чтобы добавить дополнительную характеристику в прикрепленном сценарии. Как сделать конечно значение данным по затира на Column_B всегда с форматом даты (dd-mmm)?. Специалисты упования могут помочь мне. Прикрепил часть Кодего для perusal специалистов.
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
>Set " class= " id= " codeSnippet779010
class=

Ответ : Значение даты формы в колонке

Почему вы имеете полностью вещество активировать?

Я получаю ощупывание он мог mucking вверх ваше PasteSpecial, возможно причиняя там быть ничего фактическ наклеить.

Вы могли также хотеть рассматривать заказ, котор вы делаете вещи.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

Вариант точный

Sub Copy_Paste3 ()
Тусклый wb как Workbook
Тусклое objFileDLG как Office.FileDialog
Тусклое strFilePath, lcTargetCell
Тусклые intSrcRows как интежер
Тусклые intTgtRows как интежер

    ChDir «D:\Data\»
    Установите objFileDLG = Application.FileDialog (msoFileDialogFilePicker)
    Затемните copyRange как ряд

    intTgtRows = 2

    Сделайте пока поистине
        strFilePath = ""
        С objFileDLG
            . Filters.Add «Эксел хранит», «*.xls», 1
            .FilterIndex = 1
            .AllowMultiSelect = ложно
            . Название = «выбирает Workbook для того чтобы скопировать от»
            Если. Покажите () <> 0 после этого
                strFilePath = .SelectedItems (1)
            Закончитесь если
        Закончитесь с

        Если уравновешивание (strFilePath) = "" после этого выходит, то сделайте

        Установите wb = Workbooks.Open (strFilePath)

        intSrcRows = wb. Рабочий лист (1).Cells (Cells.Rows.Count, «a»). Конец (xlUp). Рядок

        Установите copyRange = wb. Рабочий лист (1).Range («B6: B» & intSrcRows)

        Установите copyRange = соединение (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6).Resize (, 6))

        copyRange.Copy

        Установите lcTargetCell = ThisWorkbook.Worksheets (2).Range («a» & Rows.Count). Конец (xlUp). Смещение (1)

        затир lcTargetCell.PasteSpecial: =xlPasteValuesAndNumberFormats, деятельность: = _
                                  xlNone, SkipBlanks: =False, транспонирует: =False

        ThisWorkbook.Worksheets (2).Range («b: B») .NumberFormat = «dd-mmm»

        Application.CutCopyMode = ложно
        
        wb. Конец
        
        Установите wb = ничего

        intTgtRows = intTgtRows + intSrcRows - 1
        
    Петля
    'новые линии

    На резюме ошибки затем

    ThisWorkbook.Worksheets (1).Columns (1).SpecialCells (xlBlanks) .EntireRow.Delete
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us