|
Login
  • Page:
  • 1

TOPIC: Mi Sapreste Far Funzionare questo Progetto

Mi Sapreste Far Funzionare questo Progetto 6 years 4 months ago #8884

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Ciao a Titti mi Chiamo Maurizio , Ora il Problema e questo :
Io Vorrei Creare il fatto che in Due Determinate Celle e Precisamente in ( Cella D14 e in Cella E14 ) , Io possa scrivere dei Numeri sotto forma di Coordinate , come ad Esempio : ( 1 - 4 ) .
E che a sua Volta Nelle celle ( N1 e O1 ) queste Coordinate si tramutino in ( A1 - D8 ) Oppure ( D8 - E7 ) ecc...! a Seconda dei Numeri che io scivo Nelle celle ( D14 - E14 )
Tutto qui .
Vi Posso garantire che ho provato e riprovato per tentare di Risoplvere da mè questo Enicma Senza mai Riuscirci .
Grazie per tutto l'aiuto che riuscirete a darmi in Merito Sinceri Saluti da A.Maurizio

(P.s) Questo e ciò che ho provato a Scrivere Io ; mi funziona ma in parte , Perchè ? :

'Option Explicit
'Option Base 1
Dim MyPosBianca(1 To 4, 1 To 4) As Integer
Dim Riga As String, Colonna As String

Private Sub Worksheet_SelectionChange(ByVal target As Range)
On Error Resume Next

MyPosBianca(1, 0) = D8
MyPosBianca(2, 1) = E7

MyPosBianca(3, 2) = E7
MyPosBianca(4, 3) = D7

Riga = Range("D14").Text
Colonna = Range("E14").Text

Range("N1").Value = MyPosBianca(Riga, Colonna)
Range("O1").Value = MyPosBianca(Riga, Colonna)

Select Case Index
Case 0
Range("N1").Value = Format("D8")
Range("O1").Value = Format("E7")

Case 1
Range("N1").Value = Format("E7")
Range("O1").Value = Format("D7")

End Select
End Sub
The administrator has disabled public write access.

Mi Sapreste Far Funzionare questo Progetto 6 years 4 months ago #8885

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Maurizio,
non riesco a capire bene la relazione negli esempi di coordinate che fai.
Supponendo però che tu voglia arrivare a definire una coordinata espressa in formato lettera + numero (esempio: A1), ti allego un piccolo file che potrà ispirarti.
Ovviamente gli scarti colonna/riga, potranno essere inseriti come costanti nel tuo lavoro.
Ho preferito inserire un pulsante di azionamento: molto meglio.
Option Base 1 'attenzione che questo serve proprio altrimenti l'array parte da zero.
Sub Pulsante1_Clic()
NumeroColonna = Range("a2").Value
NumeroRiga = Range("a4").Value
ScartoColonna = Range("b2").Value
ScartoRiga = Range("b4").Value
Dim Trasforma, Mia_Stringa
Trasforma = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K")
Mia_Stringa = Trasforma(NumeroColonna + ScartoColonna) & NumeroRiga + ScartoRiga
Range("E2").Value = Mia_Stringa
End Sub
Ciao, Lo
PS: dimenticavo che questa aggiunta opportunamente: Range(Mia_Stringa).Select
ti consente di selezionare la cella desiderata.

File Attachment:

File Name: Cartel1_2014-07-21.xls
File Size: 27 KB
Last Edit: 6 years 4 months ago by lorenzo1957.
The administrator has disabled public write access.

Mi Sapreste Far Funzionare questo Progetto 6 years 4 months ago #8888

  • Maury1704
  • Maury1704's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 91
  • Karma: 0
Grazie Infinite Lorenzo Sei proprio un Genio ; Grazie infinite anche per avermi offerto una copia del Tuo Listato , Sinceri Saluti da A.Maurizio
(N.B) Non sò sè tu sia o meno già in vacanza , ma sè cosi fosse ti auguro un mare di Divertimento .
Io Vado un mese nelle Hawai ma solo a fine mese Grazie ancora di Tutto
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.496 seconds