Recherche chaud: microscopes dans domain de biologie comment devenir conseiller résident comment tester une thermistance distributeurs de sucreries inconvenience Comment Jouer de la Mandoline nutrisystem d respiration avec lèvres pincée mécanisme testerv microphone en ligne
Index Loisirs Santé Technologie

Comment faire une image Coeur de tartan dans Excel

Publié:2012-01-14Source: général
Advertisement

Quatre parties: l'PreparationCreate l'écran Tartan PatternCreate l'PatternThe Tartan code de macro Shape-Rempli

Vous apprendrez à faire une image constituée d'un cœur, rempli d'un tartan écossais coloré de votre choix, ou tout tissu qui est un simple sur et sous armure. Une fois que vous avez le plus grand motif de fond de tartan rectangulaire, vous pouvez faire la papeterie frontière, remplissez pour les grandes lettres et des découpes, etc. S'il vous plaît lire l'article en entier d'abord parce que la création du tartan est beaucoup plus rapide en utilisant le code de macro que si elle est faite manuellement.

Étapes

Partie 1 de 4: Préparation

Comment faire une image Coeur de tartan dans Excel


1

br> Ouvrez une nouvelle feuille de calcul Excel en ouvrant l'application Excel à partir du dossier de quai ou Applications.

Définir les préférences: En général - le style de référence Set utilisation R1C1 à vérifier ou Marche.

Réglez la colonne 1 à la colonne Format Largeur 0,5 "et Format Hauteur du rang .25"

Sélectionnez rangées 2: 200 et réglez Format hauteur de ligne à 0,06 "(mais voir Conseils).

Sélectionner les colonnes 2: 512 et réglez Format largeur de colonne à 0,03 "(mais voir Conseils).

Lisez ces étapes et d'astuces entièrement avant de réellement se mettre au travail - il ya un parcours de temps (donnée en premier) et un moyen plus facile (via de faire une copie de la macro donnée) qui permettra d'économiser beaucoup de temps et d'efforts! Mais pour créer le modèle de votre propre tartan, vous devez être familier avec les concepts véhiculés dans la première partie, à partir de cette prochaine étape:

Comment faire une image Coeur de tartan dans Excel


2

Obtenir le tartan réelle et, probablement à l'aide d'une loupe, notez la couleur et le nombre de fils à travers des colonnes et faire la même chose dans les lignes. Exactement comme vous pouvez l'être, il est important dans la réalisation de l'effet exact de vraiment reproduire le tartan, précisément. Voici une photo d'un gros plan de tartan qui a eu son fils comptés.

Partie 2 de 4: créer le motif à l'écran Tartan

1

Commencez dans la colonne 2. Sélectionnez la colonne. Faire la couleur correspond à commencer la couleur de fil du tartan. Utilisez la molette de couleur. Format de cellule Remplissez la colonne (ou à un point d'arrêt rangée # désigné) avec la couleur.

2

Alors ne la ligne 2, sélection de la ligne, et de faire autant que possible la correspondance de couleur au nombre réel couleur de fil du tartan. Utilisez la roue chromatique. Format de cellule Remplissez la ligne (ou à un point d'arrêt colonne # désigné) avec la couleur.

3

Alors ne colonne 3, puis la ligne 3, puis la colonne 4, puis la ligne 4, etc., etc. continue sur et sous cette manière jusqu'à ce que vous avez rempli l'écran avec l'image complète du tartan! Soyez patient avec vous-même et de faire du bon travail, même si elle peut prendre des heures, voire des jours pour terminer. Travailler avec les macros, cependant, prend beaucoup moins de temps à la fin.

Partie 3 de 4: Créer le motif de forme-Rempli

1

Utilisez l'application Grab ou faire Copier l'image en utilisant la touche Maj avec Edition Copier et puis ne Coller l'image avec une nouvelle feuille de calcul en utilisant à nouveau la touche Maj. Ensuite, si vous avez utilisé l'application Grab, ou collez l'image, faire Commande + v, copie.

2

Ouvrez l'application Aperçu et faites File, New du Presse-papiers.

3

Exporter le fichier vers le bureau ou dans un nouveau dossier "tartans XL travail" comme un fichier JPG ou PNG format et le nom du fichier "Mon XL Tartan Image".

4

Quittez Aperçu.

5

Cliquez sur Excel à activer comme l'application active et sélectionnez l'icône Outils de médias le long du haut de toutes les barres d'outils - il a deux notes de piano liés à l'avant et à droite de certaines images que son icône.

6

Sélectionnez à partir de la fenêtre d'outils de médias, formes, et de sélectionner la forme de coeur, ou quel que soit la forme que vous souhaitez que votre tartan être intérieur.

7

Cliquez sur une partie vierge de la feuille de calcul Excel, et un petit cœur (ou la forme que vous avez choisi) apparaîtront.

8

Re-taille comme vous préférez - environ 3 "par 3" sur l'écran est probablement juste.

9

Ne Format de la forme Remplissez Image, puis choisissez le fichier, Mon XL Tartan Picture.jpg, à utiliser comme remplissage.

Comment faire une image Coeur de tartan dans Excel


10

Votre image devrait ressembler à celui-ci:

11

Fait! Eh bien, il vaut la peine, hein?

12

Voici le code de macro pour créer le tartan. Vous utilisez Édition avancée pour copier tout le code pour Word et faire une remplacer tous "# *" avec rien, et le code se traduira, que vous pouvez ensuite coller dans plus d'un Visual Basic macro mannequin vous avez enregistré qui n'a pas de sens. Lire sur le premier, cependant.

Remarque: En Sous Macro2 (), à la fin, il ya quelques noms de chemin du répertoire dans les lignes de code qui doivent être modifiés pour correspondre à votre ordinateur, s'il vous plaît. Vous pouvez découvrir ce que ceux-ci sont en enregistrant une macro pour enregistrer un fichier dans le dossier où vous avez l'intention d'enregistrer l'œuvre de tartan et macro tartan.

Il est suggéré que vous faites une copie du texte de toutes les modifications que vous apportez à la macro et les stocker dans un fichier Word dans le même dossier, par exemple si vous modifiez le code pour faire un tartan différent que le tartan Anderson.

Rappelez-vous, vous pouvez toujours élargir les colonnes et les hauteurs de ligne pour obtenir un meilleur regard sur ce qui est ce que en termes de nombre de threads par rapport à la verticale en boucle dans les rangées en Afrique sub Macro3 ().

13

OK. Avant de pouvoir accéder à la Visual Basic Editor, vous aurez besoin d'aller à Excel Préférences et définissez le ruban pour vérifier pour développeur. Puis développeur apparaîtra sur votre ruban et lorsque vous cliquez dessus, vous verrez le bouton de l'icône d'enregistrement.

14

Lorsque vous enregistrez la macro factice, par exemple Macro1 disons, avant sa fin, peut-être écraser le mannequin enregistrée code, tapez Macro2. Cela va appeler cette Macro2 ci-dessous, que vous avez copié et collé en dessous de Macro1. Vous pouvez donc fonctionner soit Macro2 ou Macro1 et d'accomplir le même effet - achèvement du tartan! :RÉ

Partie 4 de 4: le code de macro Tartan

1

Sous Macro2 ()

'Macro Macro2

«Colonnes Anderson Tartan - de gauche à droite

Application.ScreenUpdating = True

Workbooks.Add

Range ("B: SQ») Sélectionnez.

Selection.ColumnWidth = 1,5

Range ("B1: O376") Sélectionnez.

Range. ("B1: O376") Interior.Color = RGB (100, 149, 237)

Range ("P1: U376") Sélectionnez.

Range. ("P1: U376") Interior.Color = RGB (0, 0, 0)

Range ("V1: AA376") Sélectionnez.

Range. ("V1: AA376") Interior.Color = RGB (190, 190, 190)

Range ("AB1: AE376") Sélectionnez.

Range. ("AB1: AE376") Interior.Color = RGB (0, 0, 0)

Range ("AF1: AI376") Sélectionnez.

Range. ("AF1: AI376») Interior.Color = RGB (255, 255, 0)

Range ("AJ1: AM376") Sélectionnez.

Range. ("AJ1: AM376") Interior.Color = RGB (0, 0, 0)

Range ("AN1: AQ376") Sélectionnez.

Range. ("AN1: AQ376") Interior.Color = RGB (255, 255, 0)

Range ("AR1: AW376") Sélectionnez.

Range ("AR1: AW376"). Interior.Color = RGB (0, 0, 0)

Range ("AX1: BA376") Sélectionnez.

Range ("AX1: BA376"). Interior.Color = RGB (255, 0, 0)

Range ("BB1: BG376") Sélectionnez.

Range ("BB1: BG376"). Interior.Color = RGB (0, 0, 255)

Range ("BH1: BI376") Sélectionnez.

Range. ("BH1: BI376") Interior.Color = RGB (255, 0, 0)

Range ("BJ1: BQ376") Sélectionnez.

Range. ("BJ1: BQ376") Interior.Color = RGB (46, 139, 87)

Range ("BR1: BT376") Sélectionnez.

Range. ("BR1: BT376") Interior.Color = RGB (255, 0, 0)

Range ("BU1: CB376") Sélectionnez.

Range. ("BU1: CB376") Interior.Color = RGB (46, 139, 87)

Range ("CC1: CF376") Sélectionnez.

Range. ("CC1: CF376") Interior.Color = RGB (255, 0, 0)

Range ("CG1: CN376") Sélectionnez.

Range. ("CG1: CN376") Interior.Color = RGB (46, 139, 87)

Range ("CO1: CR376") Sélectionnez.

Range ("CO1: CR376"). Interior.Color = RGB (255, 0, 0)

Range ("CS1: CZ376") Sélectionnez.

Range ("CS1: CZ376"). Interior.Color = RGB (46, 139, 87)

Range ("DA1: DB376") Sélectionnez.

Range ("DA1: DB376"). Interior.Color = RGB (255, 0, 0)

Range ("DC1: DH376") Sélectionnez.

Range. ("DC1: DH376") Interior.Color = RGB (0, 0, 255)

Range ("EL1: DL376") Sélectionnez.

Range ("EL1: DL376"). Interior.Color = RGB (255, 0, 0)

Range ("DM1: DP376") Sélectionnez.

Range ("DM1: DP376"). Interior.Color = RGB (0, 0, 0)

Range ("DQ1: DT376") Sélectionnez.

Range. ("DQ1: DT376") Interior.Color = RGB (255, 255, 0)

Range ("DU1: DX376») Sélectionnez.

Range ("DU1: DX376»). Interior.Color = RGB (0, 0, 0)

Range ("DY1: EB376") Sélectionnez.

Range ("DY1: EB376"). Interior.Color = RGB (255, 255, 0)

Range ("EC1: EF376") Sélectionnez.

Range ("EC1: EF376"). Interior.Color = RGB (0, 0, 0)

Range ("EG1: EL376") Sélectionnez.

Range. ("EG1: EL376") Interior.Color = RGB (190, 190, 190)

Range ("EM1: ER376") Sélectionnez.

Range ("EM1: ER376"). Interior.Color = RGB (0, 0, 0)

Range ("ES1: FF376") Sélectionnez.

Range ("ES1: FF376"). Interior.Color = RGB (100, 149, 237)

Range ("FG1: FG376") Sélectionnez.

Range. ("FG1: FG376") Interior.Color = RGB (255, 0, 0)

Range ("FH1: FK376") Sélectionnez.

Range ("FH1: FK376"). Interior.Color = RGB (0, 0, 0)

Range ("FL1: FL376") Sélectionnez.

Range. («FL1: FL376") Interior.Color = RGB (255, 0, 0)

Range ("FM1: FR376") Sélectionnez.

Range. ("FM1: FR376") Interior.Color = RGB (100, 149, 237)

Range ("FS1: FX376") Sélectionnez.

Range. ("FS1: FX376") Interior.Color = RGB (255, 0, 0)

Range ("FY1: GD376") Sélectionnez.

Range ("FY1: GD376"). Interior.Color = RGB (100, 149, 237)

Range ("GE1: GE376") Sélectionnez.

Range ("GE1: GE376"). Interior.Color = RGB (255, 0, 0)

Range ("GF1: GI376") Sélectionnez.

Range. ("GF1: GI376") Interior.Color = RGB (0, 0, 0)

Range ("GJ1: GJ376") Sélectionnez.

Range. ("GJ1: GJ376") Interior.Color = RGB (255, 0, 0)

Range ("GK1: GX376") Sélectionnez.

Range. ("GK1: GX376") Interior.Color = RGB (100, 149, 237)

Range ("GY1: HB376") Sélectionnez.

Range. ("GY1: HB376") Interior.Color = RGB (0, 0, 0)

Range ("HC1: HH376") Sélectionnez.

Range. ("HC1: HH376") Interior.Color = RGB (190, 190, 190)

Range ("HI1: HL376") Sélectionnez.

Range. ("HI1: HL376") Interior.Color = RGB (0, 0, 0)

Range ("HM1: HP376") Sélectionnez.

Range. ("HM1: HP376") Interior.Color = RGB (255, 255, 0)

Range ("HQ1: HT376") Sélectionnez.

Range. ("HQ1: HT376") Interior.Color = RGB (0, 0, 0)

Range ("HU1: HX376") Sélectionnez.

Range. ("HU1: HX376") Interior.Color = RGB (255, 255, 0)

Range ("S1: ID376") Sélectionnez.

Range. ("S1: ID376") Interior.Color = RGB (0, 0, 0)

Range ("IE1: IH376") Sélectionnez.

Range. ("IE1: IH376") Interior.Color = RGB (255, 0, 0)

Range ("II1: IN376") Sélectionnez.

Range ("II1: IN376"). Interior.Color = RGB (0, 0, 255)

Range ("IO1: IP376") Sélectionnez.

Range. ("IO1: IP376") Interior.Color = RGB (255, 0, 0)

Range ("IQ1: IV376") Sélectionnez.

Range. ("IQ1: IV376") Interior.Color = RGB (46, 139, 87)

Range ("IW1: JJ376") Sélectionnez.

Range ("IW1: JJ376"). Interior.Color = RGB (100, 149, 237)

Range ("JK1: JP376") Sélectionnez.

Range. ("JK1: JP376") Interior.Color = RGB (0, 0, 0)

Range ("JQ1: JV376") Sélectionnez.

Range. ("JQ1: JV376") Interior.Color = RGB (190, 190, 190)

Range ("JW1: JZ376") Sélectionnez.

Range. ("JW1: JZ376") Interior.Color = RGB (0, 0, 0)

Range ("KA1: KD376") Sélectionnez.

Range. ("KA1: KD376») Interior.Color = RGB (255, 255, 0)

Range ("KE1: KH376") Sélectionnez.

Range. ("KE1: KH376") Interior.Color = RGB (0, 0, 0)

Range ("KI1: KL376") Sélectionnez.

Range. ("KI1: KL376") Interior.Color = RGB (255, 255, 0)

Range ("KM1: KR376") Sélectionnez.

Range. ("KM1: KR376") Interior.Color = RGB (0, 0, 0)

Range ("KS1: KV376") Sélectionnez.

Range ("KS1: KV376"). Interior.Color = RGB (255, 0, 0)

Range ("KW1: LB376") Sélectionnez.

Range. ("KW1: LB376") Interior.Color = RGB (0, 0, 255)

Range ("LC1: LD376") Sélectionnez.

Range ("LC1: LD376"). Interior.Color = RGB (255, 0, 0)

Range ("LE1: LL376") Sélectionnez.

Range ("LE1: LL376"). Interior.Color = RGB (46, 139, 87)

Range ("LM1: LO376") Sélectionnez.

Range. ("LM1: LO376") Interior.Color = RGB (255, 0, 0)

Range ("LP1: LW376") Sélectionnez.

Range ("LP1: LW376"). Interior.Color = RGB (46, 139, 87)

Range ("LX1: MA376") Sélectionnez.

Range. ("LX1: MA376") Interior.Color = RGB (255, 0, 0)

Range ("MB1: MI376"). Sélectionnez

Range ("MB1: MI376"). Interior.Color = RGB (46, 139, 87)

Range ("MJ1: MM376") Sélectionnez.

Range. ("MJ1: MM376") Interior.Color = RGB (255, 0, 0)

Range ("MN1: MU376") Sélectionnez.

Range ("MN1: MU376"). Interior.Color = RGB (46, 139, 87)

Range ("MV1: MW376") Sélectionnez.

Range ("MV1: MW376"). Interior.Color = RGB (255, 0, 0)

Range ("MX1: NC376") Sélectionnez.

Range. ("MX1: NC376") Interior.Color = RGB (0, 0, 255)

Range ("ND1: NG376") Sélectionnez.

Range. ("ND1: NG376") Interior.Color = RGB (255, 0, 0)

Range ("NH1: NK376") Sélectionnez.

Range ("NH1: NK376"). Interior.Color = RGB (0, 0, 0)

Range ("NL1: NO376") Sélectionnez.

Range ("NL1: NO376"). Interior.Color = RGB (255, 255, 0)

Range ("NP1: NS376") Sélectionnez.

Range. ("NP1: NS376") Interior.Color = RGB (0, 0, 0)

Range ("NT1: NW376") Sélectionnez.

Range. («NT1: NW376") Interior.Color = RGB (255, 255, 0)

Range ("NX1: OA376") Sélectionnez.

Range. ("NX1: OA376") Interior.Color = RGB (0, 0, 0)

Range ("OB1: OG376") Sélectionnez.

Range ("OB1: OG376"). Interior.Color = RGB (190, 190, 190)

Range ("OH1: OM376") Sélectionnez.

Range. ("OH1: OM376") Interior.Color = RGB (0, 0, 0)

Range ("ON1: PA376") Sélectionnez.

Range ("ON1: PA376"). Interior.Color = RGB (100, 149, 237)

Range ("PB1: PB376") Sélectionnez.

Range. ("PB1: PB376") Interior.Color = RGB (255, 0, 0)

Range ("PC1: PF376") Sélectionnez.

Range. («PC1: PF376") Interior.Color = RGB (0, 0, 0)

Range ("PG1: PG376") Sélectionnez.

Range. ("PG1: PG376») Interior.Color = RGB (255, 0, 0)

Range ("PH1: PM376") Sélectionnez.

Range. ("PH1: PM376") Interior.Color = RGB (100, 149, 237)

Range ("PN1: PS376") Sélectionnez.

Range ("PN1: PS376"). Interior.Color = RGB (255, 0, 0)

Range ("PT1: PY376") Sélectionnez.

Range. ("PT1: PY376") Interior.Color = RGB (100, 149, 237)

Range ("PZ1: PZ376") Sélectionnez.

Range. ("PZ1: PZ376") Interior.Color = RGB (255, 0, 0)

Range ("QA1: QD376") Sélectionnez.

Range. ("QA1: QD376") Interior.Color = RGB (0, 0, 0)

Range ("QE1: QE376") Sélectionnez.

Range ("QE1: QE376"). Interior.Color = RGB (255, 0, 0)

Range ("QF1: QS376") Sélectionnez.

Range. ("QF1: QS376") Interior.Color = RGB (100, 149, 237)

Range ("QT1: QW376") Sélectionnez.

Range. ("QT1: QW376") Interior.Color = RGB (0, 0, 0)

Range ("QX1: RC376") Sélectionnez.

Range ("QX1: RC376"). Interior.Color = RGB (190, 190, 190)

Range ("RD1: RG376") Sélectionnez.

Range ("RD1: RG376"). Interior.Color = RGB (0, 0, 0)

Range ("RH1: RK376") Sélectionnez.

Range ("RH1: RK376"). Interior.Color = RGB (255, 255, 0)

Range ("RL1: RO376") Sélectionnez.

Range. ("RL1: RO376") Interior.Color = RGB (0, 0, 0)

Range ("RP1: RS376") Sélectionnez.

Range. ("RP1: RS376") Interior.Color = RGB (255, 255, 0)

Range ("RT1: RY376") Sélectionnez.

Range ("RT1: RY376"). Interior.Color = RGB (0, 0, 0)

Range ("RZ1: SC376") Sélectionnez.

Range ("RZ1: SC376"). Interior.Color = RGB (255, 0, 0)

Range ("SD1: SI376") Sélectionnez.

Range. ("SD1: SI376") Interior.Color = RGB (0, 0, 255)

Range ("SJ1: SK376") Sélectionnez.

Range. ("SJ1: SK376") Interior.Color = RGB (255, 0, 0)

Range ("SL1: SQ376") Sélectionnez.

Range ("SL1: SQ376"). Interior.Color = RGB (46, 139, 87)

ChDir _

"Macintosh HD: Utilisateurs: chrisgarthwaite: Documents: Excel ƒ: Hubs et sites: wikiHow'S:"

Range ("SL1: SQ376") Sélectionnez.

ActiveWorkbook.SaveAs Nom du fichier: = _

"Macintosh HD: Utilisateurs: chrisgarthwaite: Documents: Excel ƒ: Tartan travail: Anderson Tartan Development.xlsx" _

, FileFormat: = xlOpenXMLWorkbook, CreateBackup: = False

Macro1_Vertical_Row_Sampler

End Sub

Sous Macro1_Vertical_Row_Sampler ()

'

'Macro Macro1_Vertical_Row_Sampler

'Vertical Row Sampler

' De haut en bas

Range ("A2"). Sélectionnez

ActiveWorkbook.Names.Add Nom: = "Tartan_Vertical_StarterCell", RefersToR1C1 _

: = "= Sheet1! R2C1"

Range ("A1: A210") Sélectionnez.

Selection.RowHeight = 18

Range ("A2: A10") Sélectionnez.

Range ("A2"). Interior.Color = RGB (0, 0, 0)

Range ("A11: A16") Sélectionnez.

Range ("A11"). Interior.Color = RGB (255, 0, 0)

Range ("A17: A23") Sélectionnez.

Range ("A17"). Interior.Color = RGB (0, 0, 0)

Range ("A24: A29") Sélectionnez.

Range ("A24"). Interior.Color = RGB (255, 0, 0)

Range ("A30: A36") Sélectionnez.

Range ("A30"). Interior.Color = RGB (0, 0, 0)

Range ("A37: A38") Sélectionnez.

Range ("A37"). Interior.Color = RGB (255, 0, 0)

Range ("A39: A42") Sélectionnez.

Range ("A39"). Interior.Color = RGB (0, 0, 255)

Range ("A43: A44") Sélectionnez.

Range ("A43"). Interior.Color = RGB (255, 0, 0)

Range ("A45: A48") Sélectionnez.

Range ("A45"). Interior.Color = RGB (0, 0, 0)

Range ("A49"). Sélectionnez

Range ("A49"). Interior.Color = RGB (255, 255, 0)

Range ("A50"). Sélectionnez

Range ("A50"). Interior.Color = RGB (0, 0, 0)

Range ("A51"). Sélectionnez

Range ("A51"). Interior.Color = RGB (255, 255, 0)

Range ("A52: A55") Sélectionnez.

Range ("A52"). Interior.Color = RGB (0, 0, 0)

Range ("A56: A59") Sélectionnez.

Range ("A56"). Interior.Color = RGB (224, 255, 255)

Range ("A60: A65") Sélectionnez.

Range ("A60"). Interior.Color = RGB (0, 0, 0)

Range ("A66: A85") Sélectionnez.

Range ("A66"). Interior.Color = RGB (0, 255, 255)

Range ("A86: A87") Sélectionnez.

Range ("A86"). Interior.Color = RGB (255, 0, 0)

Range ("A88: A91") Sélectionnez.

Range ("A88"). Interior.Color = RGB (0, 0, 0)

Range ("A92: A93") Sélectionnez.

Range ("A92"). Interior.Color = RGB (255, 0, 0)

Range ("A94: A101") Sélectionnez.

Range ("A94"). Interior.Color = RGB (0, 255, 255)

Range ("A102: A107") Sélectionnez.

Range ("A102"). Interior.Color = RGB (255, 0, 0)

Range ("A108: A115") Sélectionnez.

Range ("A108"). Interior.Color = RGB (0, 255, 255)

Range ("A116: A117") Sélectionnez.

Range ("A116"). Interior.Color = RGB (255, 0, 0)

Range ("A118: A121") Sélectionnez.

Range ("A118"). Interior.Color = RGB (0, 0, 0)

Range ("A122: A123") Sélectionnez.

Range ("A122"). Interior.Color = RGB (255, 0, 0)

Range ("A124: A143") Sélectionnez.

Range ("A124"). Interior.Color = RGB (0, 255, 255)

Range ("A144: A149") Sélectionnez.

Range ("A144"). Interior.Color = RGB (0, 0, 0)

Range ("A150: A153") Sélectionnez.

Range ("A150"). Interior.Color = RGB (224, 255, 255)

Range ("A154: A157") Sélectionnez.

Range ("A154"). Interior.Color = RGB (0, 0, 0)

Range ("A158"). Sélectionnez

Range ("A158"). Interior.Color = RGB (255, 255, 0)

Range ("A159"). Sélectionnez

Range ("A159"). Interior.Color = RGB (0, 0, 0)

Range ("A160"). Sélectionnez

Range ("A160"). Interior.Color = RGB (255, 255, 0)

Range ("A161: A164") Sélectionnez.

Range ("A161"). Interior.Color = RGB (0, 0, 0)

Range ("A165: A166") Sélectionnez.

Range ("A165"). Interior.Color = RGB (255, 0, 0)

Range ("A167: A170") Sélectionnez.

Range ("A167"). Interior.Color = RGB (0, 0, 255)

Range ("A171: A172") Sélectionnez.

Range ("A171"). Interior.Color = RGB (255, 0, 0)

Range ("A173: A179") Sélectionnez.

Range ("A173"). Interior.Color = RGB (0, 0, 0)

Range ("A180: A185") Sélectionnez.

Range ("A180"). Interior.Color = RGB (255, 0, 0)

Range ("A186: A192") Sélectionnez.

Range ("A186"). Interior.Color = RGB (0, 0, 0)

Range ("A193: A198") Sélectionnez.

Range ("A193"). Interior.Color = RGB (255, 0, 0)

Range ("A199: A205") Sélectionnez.

Range ("A199"). Interior.Color = RGB (0, 0, 0)

Range ("A206"). Sélectionnez

ActiveCell.FormulaR1C1 = "Fin"

ActiveWorkbook.Save

Application.ScreenUpdating = False

Macro3

End Sub

Sous Macro3 ()

'Macro Macro3

De Windows ("Anderson Tartan Development.xlsx"). Activez

Application.Goto Référence: = "Tartan_Vertical_StarterCell"

«Faire les 9 premiers rangs noir

Macro6

Pour X03 = 1 à 7

Macro8

Suivant

10 Application.CutCopyMode = False

«Faire les 6 prochaines lignes rouges

Macro7

Pour X03 = 1 à 4

Macro8

Suivant

30 Application.CutCopyMode = False

«Faire les 7 prochains rangées noir

Macro7

Pour X03 = 1 à 5

Macro8

Suivant

50 Application.CutCopyMode = False

«Faire les 6 prochaines lignes rouges

Macro6

Pour X03 = 1 à 4

Macro8

Suivant

70 Application.CutCopyMode = False

«Faire les 7 prochains rangées noir

Macro6

Pour X03 = 1 à 5

Macro8

Suivant

90 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

100 Application.CutCopyMode = False

«Faire les 4 prochaines lignes bleu-violet

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

130 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

140 Application.CutCopyMode = False

«Faire les 4 prochaines lignes noir

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

170 Application.CutCopyMode = False

«Faire la prochaine ligne jaune simple

Selection.Copy

ActiveCell.Offset (0, 1) .Select

ActiveSheet.Paste

180 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -511) .Select

190 Application.CutCopyMode = False

«Faire la rangée suivante UNIQUE noir

Selection.Copy

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

200 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -512) .Select

210 Application.CutCopyMode = False

«Faire la prochaine ligne jaune simple

Selection.Copy

ActiveCell.Offset (0, 1) .Select

ActiveSheet.Paste

220 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -511) .Select

230 Application.CutCopyMode = False

«Faire les 4 prochaines lignes noir

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

270 Application.CutCopyMode = False

«Faire les 4 prochaines lignes blanche

Macro7

Pour X03 = 1 à 2

Macro8

Suivant

280 Application.CutCopyMode = False

«Faire les 6 prochains rangées noir

Macro6

Pour X03 = 1 à 4

Macro8

Suivant

290 Application.CutCopyMode = False

«Faire les 20 prochaines lignes bleu-vert

Macro6

Pour X03 = 1 à 18

Macro8

Suivant

310 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

320 Application.CutCopyMode = False

«Faire les 4 prochaines lignes noir

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

350 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

360 Application.CutCopyMode = False

«Faire les 8 prochaines lignes bleu-vert

Macro6

Pour X03 = 1 à 6

Macro8

Suivant

410 Application.CutCopyMode = False

«Faire les 6 prochaines lignes rouges

Macro6

Pour X03 = 1 à 4

Macro8

Suivant

430 Application.CutCopyMode = False

Macro6

Pour X03 = 1 à 6

Macro8

Suivant

450 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

470 Application.CutCopyMode = False

«Faire les 4 prochaines lignes noir

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

490 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

500 Application.CutCopyMode = False

«Faire les 20 prochaines lignes bleu-vert

Macro6

Pour X03 = 1 à 18

Macro8

Suivant

530 Application.CutCopyMode = False

«Faire les 6 prochains rangées noir

Macro6

Pour X03 = 1 à 4

Macro8

Suivant

550 Application.CutCopyMode = False

«Faire les 4 prochaines lignes blanche

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

570 Application.CutCopyMode = False

«Faire les 4 prochaines lignes noir

Macro6

Pour X03 = 1 à 2

Macro8

Suivant

590 Application.CutCopyMode = False

«Faire la prochaine ligne jaune simple

Selection.Copy

600 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -510) .Select

610 Application.CutCopyMode = False

«Faire la rangée suivante UNIQUE noir

Selection.Copy

ActiveCell.Offset (0, 1) .Select

ActiveSheet.Paste

620 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -511) .Select

630 Application.CutCopyMode = False

«Faire la prochaine ligne jaune simple

Selection.Copy

640 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -510) .Select

650 Application.CutCopyMode = False

«Faire les 4 prochaines lignes noir

Macro7

Pour X03 = 1 à 2

Macro8

Suivant

670 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

690 Application.CutCopyMode = False

«Faire les 4 prochaines lignes bleu-violet

Macro7

Pour X03 = 1 à 2

Macro8

Suivant

740 Application.CutCopyMode = False

«Faire les 2 prochaines lignes rouges

Macro6

750 Application.CutCopyMode = False

«Faire les 7 prochains rangées noir

Macro7

Pour X03 = 1 à 5

Macro8

Suivant

780 Application.CutCopyMode = False

«Faire les 6 prochaines lignes rouges

Macro6

Pour X03 = 1 à 4

Macro8

Suivant

800 Application.CutCopyMode = False

«Faire les 7 prochains rangées noir

Macro6

Pour X03 = 1 à 5

Macro8

Suivant

820 Application.CutCopyMode = False

«Faire les 6 prochaines lignes rouges

Macro7

Pour X03 = 1 à 4

Macro8

Suivant

840 Application.CutCopyMode = False

«Faire de la prochaine (la dernière) 7 rangées noir

Macro7

Pour X03 = 1 à 5

Macro8

Suivant

870 Application.CutCopyMode = False

Colonnes. ("B: SQ») Sélectionnez

Range ("B178"). Activez

Selection.ColumnWidth = 0,18

Lignes ("2: 205") SELECT.

Range ("A205"). Activate

Selection.RowHeight = 4

Macro11

ActiveWorkbook.SaveAs Nom du fichier: = _

"Macintosh HD: Utilisateurs: chrisgarthwaite: Documents: Excel ƒ: Tartan travail: Anderson Tartan Development.xlsm" _

, FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False

End Sub

Sous Macro6 ()

'Macro Macro6

Selection.Copy

0 Pour X01 = 1 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -510) .Select

ActiveSheet.Paste

ActiveCell.Offset (0, 1) .Select

ActiveSheet.Paste

Pour X02 = 1 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -511) .Select

End Sub

Sous Macro7 ()

'Macro Macro7

Selection.Copy

ActiveCell.Offset (0, 1) .Select

ActiveSheet.Paste

20 Pour X01 = 1 à 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -511) .Select

ActiveSheet.Paste

Pour X02 = 1 255

ActiveCell.Offset (0, 2) .Select

ActiveSheet.Paste

Suivant

ActiveCell.Offset (1, -510) .Select

ActiveSheet.Paste

End Sub

Sous Macro8 ()

'Macro Macro8

ActiveCell.Offset (-2, 510) .Select

ActiveWorkbook.Names.Add Nom: = "RightEnd", RefersToR1C1: = ActiveCell

ActiveCell.Offset (2, -510) .Select

ActiveCell.Offset (-2, 0) .Select

ActiveWorkbook.Names.Add Nom: = "LeftEnd", RefersToR1C1: = ActiveCell

Application.Goto Référence: = "LeftEnd: RightEnd"

Selection.Copy

ActiveCell.Offset (2, 0) .Select

ActiveSheet.Paste

ActiveCell.Offset (1, 0) .Select

ActiveWorkbook.Save

End Sub

Sous Macro11 ()

'Macro Macro11

Colonnes ("A: A"). Sélectionnez

Selection.Copy

Colonnes ("SR: SR"). Sélectionnez

ActiveSheet.Paste

Colonnes ("SS: SS"). Sélectionnez

Application.CutCopyMode = False

Selection.Delete Shift: = xlToLeft

Range ("A1"). Sélectionnez

End Sub

Soyez patient, s'il vous plaît. La macro peut durer de 3,5 minutes à une demi-heure ou plus à courir, en fonction de votre processeur (vitesse). Le code aurait pu être écrit afin de fonctionner plus rapidement, mais il aurait été moins facile à comprendre. Les numéros de ligne sont là pour briser le code entre les différentes couleurs; une longue section de code va en fait de ce qui serait la ligne 841 à la ligne 870, en général. Il ya des sections plus courtes où il n'y avait que les discussions simples ou doubles (autrement, le bouclage a été utilisé, de sorte que la valeur de boucle max pour le dernier X03 5 signifie qu'il ya 5 + 2 = 7 lignes ou les discussions dans la dernière section de trame de noir. Il est noir en raison de Macro3 laissant la cellule haut de la 7 noir Les deux premières lignes ont toutes les autres cellules collé à partir de cette cellule de l'origine;. Après cela, l'ensemble fait les lignes sont copiées et collées ci-dessous par la boucle X03, qui est beaucoup plus rapide . Ils ne sont effectués séparément, cependant, comme des multiples seraient à confusion, étant donné que le tartan est très incohérent dans le nombre de threads par trame section, il ya, en fait. Cela dit, la macro est donc beaucoup plus rapide que de le faire manuellement, il Aucune comparaison est juste !!

Merci pour ton aide! S'il vous plaît nous dire ce que vous savez à propos de

...

Conseils

Pour rendre l'entrée des fils un peu plus facile, vous pouvez commencer avec vos colonnes et des lignes un peu plus larges que les dimensions finales de 0,03 "et 0,06", respectivement, du moment que vous vous souvenez de les réduire lorsque redescendre tu finis. Il est beaucoup plus facile de remplir les cellules avec une largeur de colonne de 1,5 "et une hauteur de ligne de 0,25" en utilisant le seau de peinture alternativement, après avoir fait une rangée ou d'une série de colonne en tant que premier solide. De cette façon, le processus passe beaucoup plus vite et plus facilement!

En tissant la trame (parfois trame) est le terme pour le fil ou le fil qui est aspiré à travers les fils de chaîne pour créer chiffon. Chaîne est le fil conducteur de la longueur ou longitudinale dans un rouleau, tandis que la trame est le fil transversal. Un seul fil de la trame, en traversant la chaîne, est appelé un médiator. Donc, la trame va de "la trame de Wight" et la chaîne est verticale ou colonnaire à elle. Si vous avez choisi de mettre dans tous les fils de chaîne, puis vous alternativement (toutes les autres cellules), ajouter les fils de trame utilisant le seau de peinture pour remplir à nouveau les cellules que vous aviez déjà remplis rapidement faire la chaîne. Ou, vous pouvez procéder en faisant les rangées de gauche à droite la première fois en pleine pour une gamme de dire 512 cellules dans un modèle de dire 8-12-8-4-8-4-8-12-8 discussions où chaque nombre est la nombre de threads d'une couleur (cela vaut pour la chaîne ainsi, mais peut varier, dire à 16-32-16-8-4-8-16-32-16 ou autre), puis repeindre la chaîne dans alternativement (tous les autre cellule). De toute façon, le résultat final devrait être la même.

[VIEUX - pas à jour ci-dessus par addition de code de macro] Vous pouvez écrire une macro pour faire le travail aller beaucoup plus vite. Voici un fichier d'aide avec une ligne de code à la droite qui colore la cellule A2 dans la couleur indiquée, selon la liste RVB.

Comment faire une image Coeur de tartan dans Excel


Couleurs avec Ligne Macro

Et voici une courte iMac macro qui colore la cellule A2 après avoir sélectionné l'objet "_TopLeft", une variable nommée définie, qui se réfère à la cellule A1. Il sélectionne ensuite le «tout-autre" cellule à droite de la cellule juste de couleur, mais un vers le bas de la cellule de l'objet sélectionné en premier, donc une ligne vers le bas et puis 2 colonnes plus à droite (alors que (-1, -5 ) signifierait une ligne vers le haut et 5 colonnes à gauche) ... et les couleurs de cette cellule de la même couleur que la première cellule, il colorée. Vous verrez que LOOPING serait très pratique car vous lui dire de passer à la cellule sur deux colonnes et le peindre comme pour 512/2 fois au lieu de copier les lignes de code que de nombreuses fois pour un fil (!!), mais qui est inclus dans la macro principale ci-dessus pour cet article. Vous auriez de couleur dans les colonnes déjà complètement. Et la ligne suivante, vous souhaitez alterner les cellules que vous souhaitez remplir de couleur à partir de la rangée précédente; ce serait la boucle suivante. Mais si elle est la même couleur que la dernière couleur, vous voudriez répéter la dernière boucle, juste dans la rangée inférieure. Vous pouvez rechercher "Looping Excel Macros" simplement en googler.

Par exemple, avec le TopLeft variable nommé défini référence à la cellule A1 et commentaires précédés par une apostrophe:

Sub Macro13()

' Macro13 Macro
' Color 2 cells hot pink; 2nd cell is down 0 rows and to the right 2 columns, so it's cell C2
'
' Keyboard Shortcut: Option+Cmd+u
Application.Goto Reference:="_TopLeft"
Range("A2").Interior.Color = RGB(255, 20, 147)
ActiveCell.Offset(0, 2).Select
Selection.Interior.Color = RGB(255, 20, 147)
End Sub

La clé macro u a été ajoutée sous «Options» dans le menu Macros où il montre toutes vos macros; éditer dans ce code comme ci-dessus ne suffira pas à le rendre fonctionnel. Il est suggéré que vous sélectionnez un objet avant de tenter d'utiliser la ligne qui colore une cellule; il ne doit pas être la cellule que vous colorez, cependant.

Avertissements

Ce qui apparaît à l'écran peut ne pas être parfaite car cela est une image très complexe pour un ordinateur à résoudre. Mais les impressions doivent être précis sur une bonne imprimante. Efforcez-vous de l'exactitude - être bâclée ne sera pas utile de votre temps, on ne peut vous promettre.

[Rédacteur: Admin]
Je vous imagine comme

Articles recommandés

Cliquez Top Ranking