Премини към съдържанието

Препоръчан отговор


  Таблицата с която работя се състои от редове с около 50 клетки. Постоянно трябва да прелиствам надясно за да видя всички данни. Може ли след маркиране на ред да се включи някаква функция която да визуализира въпросният ред на цял екран под формата на текст, като "comment" примерно?

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Само с Макрос може да стане.

Във VBE в кода на страницата копирай този макрос. При натискане на десен бутон на мишката се извежда информацията за всички клетки от избрания ред и се блокира натискане на десен бутон на мишката.

За друг вариант не се сещам.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Dim I As Integer
 Dim MaxColumn As Integer
 Dim Rng As Range, MyRange As Range
 Dim TmpMsg As String
 If Target.Areas.Count > 1 Then Exit Sub
 If Target.Rows.Count > 1 Then Exit Sub
 If Application.Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
 Else
  I = Target.Row
  Set MyRange = Range("A" & I & ":" & Cells(I, Cells(I, Columns.Count).End(xlToLeft).Column).Address)  
  For Each Rng In MyRange
   TmpMsg = TmpMsg & Rng.Value & vbTab
  Next
  MsgBox TmpMsg
  Cancel = True
 End If
End Sub

Сподели този отговор


Линк към този отговор
Сподели в други сайтове
преди 58 минути, TRN написа:

Само с Макрос може да стане.

Във VBE в кода на страницата копирай този макрос. При натискане на десен бутон на мишката се извежда информацията за всички клетки от избрания ред и се блокира натискане на десен бутон на мишката.

За друг вариант не се сещам.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Dim I As Integer
 Dim MaxColumn As Integer
 Dim Rng As Range, MyRange As Range
 Dim TmpMsg As String
 If Target.Areas.Count > 1 Then Exit Sub
 If Target.Rows.Count > 1 Then Exit Sub
 If Application.Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
 Else
  I = Target.Row
  Set MyRange = Range("A" & I & ":" & Cells(I, Cells(I, Columns.Count).End(xlToLeft).Column).Address)  
  For Each Rng In MyRange
   TmpMsg = TmpMsg & Rng.Value & vbTab
  Next
  MsgBox TmpMsg
  Cancel = True
 End If
End Sub

Благодаря за отговора. Грам знания нямам за VBE кода, но пробвам да се образовам. Първата статия на която попаднах за VBE се отнасяше за Ексел 2010, а аз съм с 2007. Това проблем ли е според теб?

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Добавете отговор

Можете да публикувате отговор сега и да се регистрирате по-късно. Ако имате регистрация, влезте в профила си за да публикувате от него.

Гост
Напишете отговор в тази тема...

×   Вмъкнахте текст, който съдържа форматиране.   Премахни форматирането на текста

  Разрешени са само 75 емотикони.

×   Съдържанието от линка беше вградено автоматично.   Премахни съдържанието и покажи само линк

×   Съдържанието, което сте написали преди беше възстановено..   Изтрий всичко

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Добави ново...

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите Условия за ползване