Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.11;
Скачать: CL | DM;

Вниз

Объеденить ячейки в Excel e   Найти похожие ветки 

 
Godness   (2004-06-28 23:00) [0]

Доброго всем времени суток... Нужна ваша помощь. Подскажите пожалуйста, как объеденить ячейки в экселе. Т.е. у меня есть код примерно следующего содержания

var E: Variant;
   f: integer;
...

 E.ActiveWorkbook.WorkSheets[1].Cells[f,1].Value := "ляляля";
 E.ActiveWorkbook.WorkSheets[1].Range["A4:AK4"].Copy;
 E.ActiveWorkbook.WorkSheets[1].Range["A" + inttostr(f) + ":AK" + inttostr(f)].Select;
 E.ActiveWorkbook.WorkSheets[1].Paste;
 E.ActiveWorkbook.WorkSheets[1].Cells[f,1].Value := "еще раз ляляля";


 а, теперь мне нужно диапазон "A6:AK6" обьеденить, т.е. чтобы этот диапазон был как одна ячейка. Т.е. отображал значение только крайней левой верхней ячейки. Что-то вроде

 E.ActiveWorkbook.WorkSheets[1].Range["A6:AK6"].(объеденить ?)

 Надеюсь понятно выразился :)... Заранее спасибо...


 
Godness   (2004-06-29 18:12) [1]

Черт... ну, неужели никто не знает :-|


 
YurikGL ©   (2004-06-29 18:13) [2]

E.ActiveWorkbook.WorkSheets[1].Range["A6:AK6"].merge ?


 
YurikGL ©   (2004-06-29 18:15) [3]

Вот, нашел
Excelapplication1.Range["A1","D1"].Merge(EmptyParam);


 
wisekaa ©   (2004-06-29 18:18) [4]

with ExcelApp do
 with Range[Range1,Range2] do
  begin
   Orientation := OleVariant(0);
   MergeCells := OleVariant(True);
   Borders[xlDiagonalDown].LineStyle := OleVariant(xlNone);
   Borders[xlDiagonalUp].LineStyle := OleVariant(xlNone);
   Borders[xlEdgeLeft].LineStyle := OleVariant(xlContinuous);
   Borders[xlEdgeLeft].Weight := OleVariant(xlThin);
   Borders[xlEdgeLeft].ColorIndex := OleVariant(xlAutomatic);
   with Borders[xlEdgeTop] do
    begin
     LineStyle := OleVariant(xlContinuous);
     Weight := OleVariant(xlThin);
     ColorIndex := OleVariant(xlAutomatic);
    end;
   with Borders[xlEdgeTop] do
    begin
     LineStyle := OleVariant(xlContinuous);
     Weight := OleVariant(xlThin);
     ColorIndex := OleVariant(xlAutomatic);
    end;
   with Borders[xlEdgeBottom] do
    begin
     LineStyle := OleVariant(xlContinuous);
     Weight := OleVariant(xlThin);
     ColorIndex := OleVariant(xlAutomatic);
    end;
   with Borders[xlEdgeRight] do
    begin
     LineStyle := OleVariant(xlContinuous);
     Weight := OleVariant(xlThin);
     ColorIndex := OleVariant(xlAutomatic);
    end;
   with Borders[xlInsideVertical] do
    begin
     LineStyle := OleVariant(xlContinuous);
     Weight := OleVariant(xlThin);
     ColorIndex := OleVariant(xlAutomatic);
    end;
    with Borders[xlInsideHorizontal] do
     begin
      LineStyle := OleVariant(xlContinuous);
      Weight := OleVariant(xlThin);
      ColorIndex := OleVariant(xlAutomatic);
     end;
  end;


 
Тимохов ©   (2004-06-29 18:24) [5]


> Godness   (29.06.04 18:12) [1]

не ругайтесь: давно бы сами ответ нашли использую следующий метод:
1. Откройте ексель
2. начните запись макроса
3. сделайте то, что вам нужно (в данном случае объедините ячейки)
4. остановите запись
5. посмотрите на код vb, который получился - надо нажать alt+f11.
6. скоприуйте в дельфи, адаптируйте и пользуйте...


 
Jann ©   (2004-06-29 18:46) [6]

Все просто я тоже долго парился над этим.
Вот код примерный:
xl.Range["A2:S2"].Select;
xl.Selection.MergeCells := true;


 
YurikGL ©   (2004-06-29 19:03) [7]


> Jann ©   (29.06.04 18:46) [6]

А я вообще не парился :)[3]


 
Godness   (2004-06-30 20:48) [8]

Большое спасибо! 8)...



Страницы: 1 вся ветка

Текущий архив: 2004.07.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.032 c
14-1087822292
RealRascal
2004-06-21 16:51
2004.07.11
Диалог с произвольными кнопками


1-1088054215
nick
2004-06-24 09:16
2004.07.11
Как освободить память


14-1087949054
jack128
2004-06-23 04:04
2004.07.11
Как часто вы работаете по ночам?


14-1088018246
_ALEX_
2004-06-23 23:17
2004.07.11
Update Delphi 7


6-1084366870
якут
2004-05-12 17:01
2004.07.11
Докачка файла





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский