Comments

Simple CSS Drop Down Menu
24 Jul 2015, 09:35
<!DOCTYPE html>
<head>
<style>
* {margin:0px; padding:0px;}

#menu, .sub1, .sub2 {list-style-type: none;}

#menu li {position:relative;
float:left;}

#menu .sub1 {display:none;
position:absolute;
top:25px;
left:0px;}

#menu .sub2 {display:none;
position:absolute;
top:0px;
left:135px;}

#menu a {display:block;
border:1px solid gray;
border-radius:10px;
font-family:verdana;
text-align:center;
line-height:25px;
font-size:11px;
height:25px;
width:135px;
background-color:black;
font:white;
text-aligh:25px;
color:white;}

#menu :hover > a {background-color:gray;}
#menu :hover .sub1 {display:block;}
#menu .sub1 :hover .sub2 {display:block;}

</style>
</head>
<body>
<h1><a href="test2.html"> Menu Project</a></h1>
<ul id="menu">
<li><a href="#">Hyperlink 1</a></li>
<li><a href="#">Hyperlink 2</a>
<ul class="sub1">
<li><a href="#">Hyperlink 1</a></li>
<li><a href="#">Hyperlink 2</a></li>
<li><a href="#">Hyperlink 3</a>
<ul class="sub2">
<li><a href="#">Hyperlink 1</a></li>
<li><a href="#">Hyperlink 2</a></li>
<li><a href="#">Hyperlink 3</a></li>
<li><a href="#">Hyperlink 4</a></li>
<li><a href="#">Hyperlink 5</a></li>
</ul>
</li>
<li><a href="#">Hyperlink 4</a></li>
<li><a href="#">Hyperlink 5</a></li>
</ul>
</li>
<li><a href="#">Hyperlink 3</a></li>
<li><a href="#">Hyperlink 4</a></li>
<li><a href="#">Hyperlink 5</a></li>
</ul>

</body>
for loop with array and shuffle
24 Jul 2015, 19:27

<?php

$arrname = array(1,2,3,4,5,6,7,8,9,10);
shuffle($arrname);


for ($num = 0; $num <=4; $num+=1) {echo $arrname[$num];}

?>

Drop down with foreach
19 Aug 2015, 18:26
<?php

$days = array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26, 27,28,29,30,31);

echo "<select name='day'>";foreach($days as $value){echo "<option value='$value'>$value</option>/n";}

?>
Do Until Loop Macro
27 Aug 2015, 12:41

Sub DoUntilLoop()

Range("A3").Select

Do Until ActiveCell.FormulaR1C1 = "stop"
ActiveCell.Offset(-1, 0).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Loop

End Sub
Return the "CELL ADDRESS"
28 Oct 2016, 15:32
If you want a formula to return the cell location (address) of a particular cell, do:

=ADDRESS(ROW(),COLUMN(),4)

Note:

1) $Absolute
2) $Absolute Row / Relative Column
3) Relative Row / $Absolute Column
4) Relative


Extract unique values from a list
09 Jan 2017, 09:28
Put your formula in the "countif" range in your formula.

Note: it's an array formula, so paste hit Ct'l + Shift + Enter to activate (then just copy it down)

=INDEX($A$2:$A$20, MATCH(0, COUNTIF($B$1:B1, $A$2:$A$20), 0))
jose
14 Jan 2017, 13:10
test
PRINT RECORDS IN DB ONE BY ONE (VBA)
27 Jan 2017, 16:10
Sub DoUntilLoop()
Sheets("dbase").Select
'find the starting word
Cells.find(What:="start", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'start looping
Do Until ActiveCell.FormulaR1C1 = "stop"
Sheets("dbase").Select
If ActiveCell.FormulaR1C1 <> "stop" Then
ActiveCell.FormulaR1C1 = "=ROW()"
ActiveCell.Offset(1, 0).Select
Sheets("template").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If

Loop

End Sub
Perfect Loop to Print Records in a dBase
29 Jan 2017, 04:12

Sub DoUntilLoop()

On Error GoTo MiMensaje

Do
Sheets("dbase").Select

'This portion will find your keyword (">>" in this case)
Cells.Find(What:=">>", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'-----------------------------------------------------------------

ActiveCell.FormulaR1C1 = "=ROW()-2"

'Now it prints the "template" sheet and comes back to "dbase" sheet
Sheets("template").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("dbase").Select
'------------------------------------------------------------------

Selection.ClearContents

ActiveCell.Offset(1, 0).Select

Loop

MiMensaje:
MsgBox "There are no more records marked for printing" & Chr(10) & Chr(10) & "To select for printing, mark with '>>'"

End Sub
*Name:
Email:
Notify me about new comments on this page
Hide my email
*Text:
 
 
Comments Powered by: Scriptsmill Comments Script
Web designed by: Jose Guevara Balboa © 2015Comments Admin