Astuces Excel
  1. Astuces Excel
  3. Coffre de contrôle de formulaire contrefaçon de reference de reference de cellule
Intereting Posts
Excel: extraire des colonnes d'un classur pour append à un autre classur Formule de tableau de copy avec VBA Variable dans excel vba ne charge pas la valeur d'une cellule copyr des feuilles Excel spécifiques à un nouveau classur en tant que valeurs Amélioration du model d'échantillon de Flashfill Exporter DataTable vers Excel en utilisant PowerShell vba. savoir comment le faire fonctionner Comment rendre une autre colonne obligatoire en fonction d'une valeur définie dans une autre colonne dans Excel Erreur de rendu Excel dans SSRS Formule Excel dans l'implémentation C # Erreur "Procédure trop grande" Extraire le nom du server à partir du path UNC à l'aide d'Excel Gamme de cellules fusionnées Excel VB.net Données Nitro et expression régulière (Python) Calculer_Changer button – Les macros ralentissent

Coffre de contrôle de formulaire contrefaçon de reference de reference de cellule

J'ai inventé une reference de cellule liée pour une case de contrôle de formulaire, .LinkedCell = Worksheets("sheet1").Range("D" & myCell.Row & "").Value , qui ne sera malheureusement pas liée à la cellule spécifiée. Bien que la reference de la légende fonctionne. J'ai placé la macro entière ci-dessous: 

 Sub test() Dim myBox As CheckBox Dim myCell As Range Dim cellRange As Ssortingng With ActiveSheet For Each myCell In .Range("B10:B12").Cells With myCell Set myBox = .Parent.CheckBoxes.Add(Top:=.Top, Width:=.Width, Left:=.Left, Height:=.Height) With myBox .LinkedCell = Worksheets("sheet1").Range("D" & myCell.Row & "").Value .Caption = Worksheets("sheet1").Range("B" & myCell.Row & "").Value .Name = "checkbox_" & myCell.Address(0, 0) End With .NumberFormat = ";;;" End With Next myCell End With End Sub

J'ai essayé de faire reference à la cellule de cette façon également: .Range("sheet1!B" & myCell.Row).Value . Cette méthode échoue complètement.

Vous avez besoin de l' .Address et non .Value . Essaye ça 

 .LinkedCell = Worksheets("sheet1").Range("D" & myCell.Row).Address

ou 

 .LinkedCell = ActiveSheet.Range("D" & myCell.Row).Address

Aussi, vous n'avez pas besoin du "" après avoir spécifié la ligne. Alors "B" & myCell.Row & "" peuvent être écrits comme "B" & myCell.Row