
Sub crea_indirizzario()
Dim s As String
s = Join(Application.Transpose(Range("a1:a5")), ";")
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.Characters.Text = s
End Sub |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
function DaCelleAStringa() {
var sheet = SpreadsheetApp.getActiveSheet();
var rows = sheet.getRange(1, 1, 5);
var values = rows.getValues();
sheet.getRange(1, 7, 1).setValue(values.join(";"));
};
function DaCelleAStringaCiclo() {
var sheet = SpreadsheetApp.getActiveSheet();
var rows = sheet.getRange(1, 1, 5);
var numRows = rows.getNumRows();
var values = rows.getValues();
var s = '';
for (var i = 0; i <= numRows - 1; i++) {
s = s + values[i]+';';
}
sheet.getRange(1, 5, 1).setValue(s);
};
|
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
