Formel i kommentar (Excel)

[Perrin]

Hej!

Har ett kalkylblad, där jag vill hämta ett värde från ett annat blad och lägga i en kommentar.

I stil med =Blad1!H25

Ändras värdet i Blad1 Cell H25 så skall jag kunna se detta i kommentaren.

 

Någon som kan/vet!

 

Tacksam för hjälp!

 

Micke

[Perrin]

Fixade det själv.

Skrev VBA kod som la en kommentar i cellen med det rätta värdet.

 

[XL-Dennis]

Micke,

 

Kan du inte ha vänligheten att publicera lösningen här så kan andra få ta del av den?

 

Mvh

Dennis

 

[Perrin]

Självklart! Vad tänkte jag på?

Först en förklaring.

Jag har en matris, B2 - P12.

Behövde se inmatade värden från tidigare matris utan att behöva gå in på det andra kalkylbladet.

 

Skapade ett makro med följande kod:

 

 Application.ScreenUpdating = False

 Dim str_Bokstav As String
 Dim str_Cell As String
 Dim str_HamtVarde As String
 Dim int_Radnr As Integer
 Dim lng_Char As Long

 For lng_Char = 66 To 80
   str_Bokstav = Chr(lng_Char)
   For int_Radnr = 2 To 12
     str_Cell = str_Bokstav & CStr(int_Radnr)
     Sheets("Blad1").Select
     Range(str_Cell).Select
     str_HamtVarde = Range(str_Cell).Value
     Sheets("Blad2").Select
     Range(str_Cell).Select
     Range(str_Cell).AddComment
     Range(str_Cell).Comment.Text Text:=str_HamtVarde
     Range(str_Cell).Comment.Shape.ScaleWidth 0.3, msoFalse, msoScaleFromTopLeft
     Range(str_Cell).Comment.Shape.ScaleHeight 0.2, msoFalse, msoScaleFromTopLeft
     Range(str_Cell).Comment.Visible = False
   Next
 Next
 Range("B2").Select
 Application.ScreenUpdating = True

 

Första och sista raden används för att slippa en massa kalkylbladsblink och dimensionering, tja Ni vet.

 

For loop 1 hämtar jag ASCII kod för bokstäverna B - P

 

For loop 2 används för radnummret.

str_Cell blir då cellrerensen, ex "B2".

Sedan hoppar vi till föregående kalkylblad, hämtar värdet. Cellreferensen är den samma, ex "B2".

Hoppar tillbaka och skapar kommentaren samt ändrar storleken på kommentarsrutan.

 

Överdriven förklaring kanske, men nu hoppas jag att alla kan göra efter!

 

Micke

 

[inlägget ändrat 2002-10-24 17:33:29 av MickeMickeMickeMicke]

[XL-Dennis]

Micke,

 

Tackar!

 

Mvh

Dennis

Besök Sveriges ledande oberoende webbplats om MS Excel: http://www.xldennis.com

 

 

[inlägget ändrat 2002-10-24 22:05:16 av XL-Dennis]